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INTRODUCCIÓN 


Bienvenidos, “Profundizadores” 


Muchas de las preguntas y problemas que he encontrado 
durante mi experiencia con el ZX Spectrum me han servido 
de materia para realizar este libro. La cantidad de trucos y 
astucias que aparecen ayudarán al programador a obtener 
un conocimiento más profundo sobre el micro ZX Spec- 
trum, incluso más allá de lo que le parecía inimaginable. 


Espero que encuentre que los temas y las materias más 
avanzadas han sido escritos en un estilo simple de enten- 
der. El Spectrum es tan fáci) de usar comparado con otros 
microcomputadores, que creo que los libros como éste de- 
berían hacer lo posible para reflejarlo de la manera más fa- 
miliar y accesible. 


Con esta obra, espero que pueda profundizar desdela ROM 
hasta los programas en tres dimensiones. 


Adelante pués y..... ¡a fondo!. 


TRUCOS DE LA PANTALLA 


Entre y ejecute este programa. ¿Qué es lo que hace? 


10 DIM ¡5(704) 
28 PRINT_ AT RNID28,AND91,CHAS 
(RADi1223+3232) 

ser; PRINT AT 0,0; OVER 1; INUER 


13i5 
408 GÓ TO 282 


En un par de segundos imprime algo en la pantalla y a continuación toda ella 
queda invertida. ¿Quién necesita el código de máquina?. Realmente, se hace 
imprimiendo espacios toda una pantalla OVER (sobre) la pantalla en INVER- 
SE (inverso) la cual tiene el efecto de hacer que todo lo que era blanco en la 
pantalla se convierte en negro y que todo lo que era negro se convierte en 
blanco; normalmente Vd. esperaba que el OVER usaría su acción EXOR para 
borrar algunas partes pero el EXOR no tiene nada que borrar en una cadena de 
espacios de manera que suministra una pantalla en inverso muy rápidamente. 
Funciona bien en negro y blanco y es fácil hacer que trabaje en color añadiendo 
los controles de color PAPER (PAPEL), INK (TINTA), FLASH (destello) y 
BRIGHT (BRILLO) con un parámetro de 8 cada uno de ellos para prevenir la 
unión de ciertos colores si fuesen diferentes. Todo lo que esto hace es asegurar 
los mismos atributos mantenidos aunque el INVERSE 1 quede afectado. 


10 DIM ¡$4(704) 

15 FOR i=21 TO 509 

20 PRINT AT RNDx20,RNDES1I; INP 

RNDET; PAPER _ RNDET; FLASH RND; 
BRIGHT RND;CHRS (RANDi223+32) 

30 PRINT AT 9,0; INUERSE 1; Ou 
ER 1; PAPER 8; INK S; BRIGHT 8; 
FLASH B;1% 

40 NEXT i 


La misma idea puede utilizarse para convertir todo el texto y gráficos de la 
pantalla en un color determinado omitiendo la sentencia INVERSE 1 (0 especi- 
ficando el INVERSE 0) y especificando un color INK en vez de dejarlo en 
INK8. Por ejemplo, este programa escribe los caracteres en la pantalla en colo- 
res INK y PAPER aleatorios, para demostración, entonces cambia todos los 
caracteres a negro mientras mantiene los mismos atributos de brillo, destello y 
color de fondo: 


10 DIM ¡$1794 
15 FOR ¡=1 Tu “se 
28 PRINT PT RND28,RAMNDÍADiI, INF 


RND*7;, PAPER _ RND27; FLASH AND; 
SRIGHT RAND; CARS RNDI2D2a+ 221 

38 PRINTAT 4,8; IMUSERSE 1, 056 
ER _ 1; PAPER 3; INK MM; BRIGHT 3, 
FLASH 3S;i5 

48 NEXT i 


Habrá observado que algunos INKs y PAPERs son los mismos que aparecen 
después de la impresión aleatoria en la línea 20. Esto es un problema muy 
común. ¿Problema?. ¡No!. Tan sólo especifique el INK 9. Ahora Vd. puede 
leer todo. 


10 DIM ¡5$(7042 

15 FOR i=3 TU >5u 

28 PRINT AT RND+*23,RNO+313 EME 
RND+7; PAPER SNHD47; FLASH RED: 
BRIGHT RND;CHAS (RND223+323 

30 PRINT AT 8,0; E NUERSE 1, 0%) 
ER 1; PAPER 38; INK 9; BRIGHT 8; 
FLASH 9:15 

48 NEXT i 


Podemos hacer lo mismo para el PAPER. Especificando el color del PAPER, y 
dejando todos los otros atributos igual, todo el color del fondo puede cambiarse 
sin que afecte a lo que hay en la pantalla o usando el CLS. ¡Observe que todo el 
texto escrito en este color aparece en la pantalla como disipado pues el texto 
verde sobre fondo verde no es tan fácil de leer!. Este ejemplo dibuja los carac- 
teres aleatorios con atributos aleatorios, entonces fija todo el fondo en amari- 
llo. 


10 DIM ¡541(704) 
de pRint ar GB 
DILO, ANDESZA;: INK 
RND+7; PAPER_RND+*7"; FLASH RND; 
BRIGHT RND;CHR% (RNID=223432) 
350 PRINT_ AT 0,0; INVUVERSE 1; Ou 
ER _ i; PAPER 8; Ink 5; ERIGHT S; 


Vd. puede obtener un efecto interesante con cualquier área que tenga un atri- 
buto BRIGHT de 1 con el programa de arriba. Si Vd. ha suministrado indicado- 
res del usuario en el BRIGHT 1 o en el FLASH 1 (o sea, extra brillo o destello) 
para remarcarlos y después de conseguir lo que Vd. quería, cancelarlos, Vd. 
puede hacerlo de las formas siguientes: 
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Para desactivar el brillo: 


10 DIM ¡5$1(704) 

15 FOR i¡=1 TO S8 

20 PRINT AT RNIDA20,ENDAZ1; INEH 
RADEZ; PAPER RHDET;: FLASH END; 
BRIGHT RND;CHR%E (RND:223432) 

30 PRINT_COT 0,0; INVERSE 2; QU 
ER_ 1; PAPER 9D; INK 5; BRIGHT Q; 
FLASA 81% 

340 NEXT i 


Para desactivar el destello: 


18 DIM ¡$17042 

15 FOR ¡=1 TO Su 

22 PRINT AT AND28B/¿AMNDADA] INE 
RANDx75 PAPER _ ANDx7; FLASH RMND; 
BRIGHT ANDO;CHAS IRNDADZIIFAADA 

30 PRINT AT 24,8; INUERSE 1; 0 
ER_1; PAPER 9D; IMR 2; RRIGHT 3; 
FLASH Q;i3 

40 NEXT 3 


Observe que en todos los ejemplos de arriba, los "trucos de la pantalla” ¡se 
realizan en una sola línea!. Recuerde: la respuesta a la última pregunta sobre la 
vida, el universo y todo el resto es una cadena de 704 espacios impresos OVER 
1 sobre toda la pantalla en el color 8. 


Esta técnica abre una interesante posibilidad. Si Vd. quiere dibujar una forma 
compleja la cual iría muy despacio, primero dibújela de la forma normal en el 
mismo color con INK y PAPER de manera que quede invisible, entonces use la 
técnica de arriba para cambiar el color de la forma de manera que se haga 
visible casi instantáneamente. Intente este programa que dibuja cuatro círculos 
concéntricos en magenta sobre un fondo amarillo. El proceso de dibujo tarda 
unos 4 segundos. 


Pruebe con este programa el cual inicialmente dibuja los círculos en amarillo 
sobre un fondo amarillo entonces, después de dibujar, cambia el color de los 
círculos a magenta sobre amarillo. Durante unos segundos Vd. estará observan- 
do una pantalla amarilla sin nada, pero cuando los círculos aparecen lo hacen de 
forma casi instantánea. En la práctica, Vd. podrá disimular el retraso de mane- 
ra que el dibujo aparezca instantáneamente. 


11 


S INR 5: PAPER 5: La 
18 DIM ¡3 7042 
15 FOR i=18 TO 7M STEFR 28 
29 CIRCLE 1l2%,%8,i 
25 NEXT_i 
38 PRINT PT ,e; INK 3; OVER 1 
i5 


Esto sólo es el esqueleto de una idea, pero usando una cadena de sobreimpre- 
sión de espacios para controlar los atributos del fichero es una herramienta de 
programación rápida y potente. 


Hemos estado hablando en términos de como usar una pantalla llena de espa- 
cios, para afectar la pantalla entera. Vd. puede usar lo justo para alterar los 
atributos de un solo carácter o palabra en la pantalla, es decir, para hacer que el 
monstruo verde se convierta en blanco de terror cuando Vd. le acierta con su 
arma espacial: 


PRINT AT Y,X; OUER 1; INK 7; e" 


o para hacer un ciclo de palabras con todos los atributos posibles: 


12 PRINT AT_S5,S;"sacorra” 

28 FOR f=2 TO_ 1: FOR b=a TQ 1: 
FOR p=2 To 7 FOR i-28* TQ 7 

S8_PRINT O PATO OS,5; OWUER 1; FLASH 
Fi; BRIGHT bb; PAPER Pp; INR 3; 

pa REM 4 Espacios 

q NHEX i NEXT p: NEXT Ob: NEX 


cm, 
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ESCAPANDO DE LAS 
ENTRADAS 


Si Vd. desea parar un programa durante un INPUT, el BREAK no opera y tan 
sólo produce un espacio a añadir al INPUT. En el caso de un INPUT numérico 
como el INPUT A en la respuesta debe escribirse STOP (que es el símbolo shift 
A) seguido por ENTER. El programa termina con el reporte H STOP en el 
INPUT. 


En el caso de las cadenas, las cosas son diferentes. El STOP todavía puede 
utilizarse, pero el cursor debe ser la primera cosa en la línea y esto significa 
mover el cursor fuera de las comillas tanto si es con DELETE (que es CAPS 
SHIFT 0) o con CURSOR LEFT (que es CAPS SHIFT 5) entonces escriba 
STOP seguido de ENTER y el programa terminará con el reporte H STOP en 
el INPUT. 


El uso de la facilidad INPUT LINE puede ser problemático a este respecto. El 
STOP se acepta como un carácter de entrada perfectamente válido y no detiene 
el programa. Sin embargo, es posible escapar del INPUT LINE usando CUR- 
SOR DOWN (que es CAPS SHIFT 6). Vd. no necesita pulsar el ENTER.¡Otra 
vez el programa terminará con el reporte H STOP en el INPUT a pesar de que 
el STOP no se ha utilizado!. 
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SINGULARES Y PLURALES 


Un error común de un programa es terminar con una sentencia como "Queda 1 
bombas”, o sea, no dar importancia a los singulares y plurales. La línea del 
programa que genera esta sentencia es algo así: 


Todo lo que está mal es que el programa no puede con la gramática del lenguaje 
Español. En este contexto, es posible acercarse al problema muy fácilmente. 
Aquí hay una forma de acercarse al problema: 


10 PRINTO “Todaw ; 
i TF tbombsez >: WN ERINT “que 
3 

L IF bombas:<=1 THEN PRINT “qu 
1 PRINTO" "ibombas;”" bomba"; 

1 1F bombaz:1 THEN PRINT Us"; 


Quizás la rutina sea algo larga y embarazosa para una tarea tan simple. Esta 
rutina usa el AND para acortarla a una sola línea 


X 


a e Y 
10062 PRINT "Todavia “¡ “quedan” A 
NO bombas >lytqueda" AND betas 
+; "¡bombas bomba";"s" HAND bo 
Mbas 1 
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PARA PERMITIR QUE EL 
SPECTRUM 
ACTIVE/DESACTIVE EL CAPS 
LOCK 


El bit 3 de la variable 23658 del sistema (FLAGS2) indica el estado del CAPS 
LOCK. Si está activado el bit 3 es 1, si no está activado el bit 3 es O. En los 
programas, a menudo es útil poder detectar cuando una cierta tecla se pulsa 
independientemente de que el carácter pulsado está en mayúsculas o minúscu- 
las, es decir, para una respuesta SI o NO. Para activar el CAPS LOCK use la 
sentencia POKE 23658,8 y para desactivar el CAPS LOCK use el POKE 
23658,0 teniendo en cuenta que éstos afectarán los otros flags de la variable del 
sistema. Para una demostración divertida, conecte la impresora ZX y entre 
esto: 


POKE23658,2 
Vd. no dañará la impresora o perderá papel o nada de todo esto, pero la des- 
pertará. Así, Vd. puede ver que es necesario poner atención cuando haga un 


POKE en la posición 23658. Así es como el SI o NO de una rutina puede traba- 
jar: 


cira partida 


E 
2 E 


" THEN Rln 
"TREN S3TOF 


REE E Lip 
Braáfñier 
aa. + 


Para no modificar los otros flags 
Activ: POKE 23658, (PEEK (23658) OR 8) 
Desact: POKE 23658, (PEEK (23658) AND 247) 
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PAUSA Y BUCLES FOR/NEXT 


Normalmente no hay ningún problema al usar el PAUSE en el Spectrum pero 
cuando se necesita un retraso fijo, el PAUSE puede causar problemas. El 
PAUSE se desactiva con la pulsación de una tecla, así pues, si Vd. pulsa una 
tecla no sucederá ningún PAUSE. Este problema puede evitarse mediante el 
uso de los bucles FOR/NEXT como bucles de espera. Para realizar una pausa 
de 1 segundo use un bucle de FOR A = 1 TO 220:NEXT A 
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PARA RELACIONAR LAS 
COORDENADAS DE LAS 
SENTENCIAS PRINT Y PLOT 


Supongamos que Vd. tiene PRINT AT Y,X; la posición Y hace filas verticales y 
la columna X a través de la pantalla. Y sería 0 en la parte superior de la pantalla 
y 21 en la parte inferior. X sería 0 a la izquierda de la pantalla y 31 a la derecha 
de la pantalla; en otras palabras, las coordenadas PRINT estándard. 


Ñ 


Las coordenadas de dibujo que corresponden a los cuatro rincones 1 al 4 de la 
celda de caracteres Y,X (mostrado en el diagrama de arriba) estarían en el 
formato PLOT X, Y: 


((0X*8,(1-1*89+7 
(0X*8+7,01-Y)*8 +7 
(3) X * 8, (21- Y) *8 
(4X*8+7,(Q1-Y)*8 


Con lo indicado arriba, Vd. debe de ser capaz de trabajar en todas las posicio- 


nes de pixels dentro de una posición PRINT en el caso de que Vd. necesite 
efectuar un PLOT o un DRAW sobre una posición PRINT conocida. 


17 


COMO HACER UN CATALOGO 
DE LOS PROGRAMAS EN UNA 
CINTA 


Si Vd. tiene una cinta llena de programas y no sabe sus nombres o naturaleza 
(es decir, los programas en BASIC, los registros de datos o los bytes de memo- 
ria) le sería de ayuda ejecutarlos en la cinta y tener los nombres escritos en la 
pantalla de TV con la cinta del registro, sin afectar para nada lo que se ha 
entrade recientemente en la memoria del computador. Los tipos de registros 
que Vd. puede encontrarse así son: 


Matriz alfanumérica: A ás 
Matriz numérica: A ) PRASANE “e” DATA AD) 0d 


Programa: Laberinto para SAVE Laberinto 
Bytes: código para SAVE”código” CODE 16384,32 


Para hacer esto, use el VERIFY con el nombre de un programa que nunca se 
encontrará en la cinta. Yo intento usar VERIFY ”ZZZZZZZZZZ”. Asegúre- 
se de que no hay ningún otro nombre de programa en la pantalla, ya que puede 
confundirle. 
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BORRADO PARCIAL DE LA 
PANTALLA 


El INPUT también puede utilizarse sin tener que entrar realmente una varia- 
ble. Esto puede utilizarse para hacer un borrado parcial de la parte inferior de 
la pantalla siempre que el INPUT AT no sobrepase la posición principal de 
PRINT (en cuyo caso la pantalla empieza a deslizarse). Use INPUT AT así, 
recordando que las coordenadas del INPUT AT comienzan desde la parte in- 
ferior de la pantalla. 
¡8 INPUT “¿Donde7?",u 
RE Ss FOR A=2 TO 21: PRINT A: NEX 
30 PRINT AT 0,0; 
¿0 INPUT HT 4,8; 
Si el INPUT AT llega a la actual posición de PRINT la pantalla se deslizará. 
Vd. podría guardar la posición de impresión, moverla a otro lugar, borrar la 
parte inferior de la pantalla y entonces volver a colocar la posición de impre- 
sión. 


36 FOR A=9 TO 21: PRINT HT 4,5 
¿Asi NEXT A 

20 LET X=33-PEEK 25688 

3ua LET Y=24- A 2556599 

30 PRINT AT 0,0; 

50 INPUT “¿Cuántas?” ». HM 

659 INPUT AT HM+1,0,; 

70 PRINT AT Y.X; 


En la rutina de arriba, la línea 10 imprime algo en la pantalla. Las líneas 20 y 30 
guardan las coordenadas de la posición PRINT. La línea 40 mueve la posición 
de impresión temporalmente hasta la parte superior de la pantalla. La línea 50 
pregunta cuántas líneas quiere borrar de las 22 líneas de la parte superior de la 
pantalla. Por ejemplo, entrando 1, Vd. sólo borraría la línea 21. La línea 60 es 
la que efectúa el borrado, y la línea 70 recupera la posición de impresión. 
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DESLIZAMIENTO DE LA 
PANTALLA 


Es posible crear un efecto de deslizamiento desde el BASIC almacenando la 
imagen de la pantalla en una cadena lo suficientemente larga como para conte- 
ner todos los 22 * 32 caracteres de la pantalla. El deslizamiento se crea por la 
rotación de los elementos de la cadena. El deslizamiento hacia arriba y abajo 
puede realizarse de esta manera bastante rápido: 


1 REM Destizar Prriba 
18 DIM axi7R4> 
2% INPUT ax 
30 PRINT AT 21,0,8;35$ 
4% LET a=a$i22 TQ 239” 


Seu Go Ta ox 


1 REM Destizar Abajo 
106 DIM a%51704) 
20 INPUT 23% 
306 PRINT AT 0,02% 
46 LET ag=" 
"+a$fí TO 6723 
5e GO TO 30 


Los deslizamientos laterales son más lentos, pero posibles: 


á itizar Xl2Qquierda 
10 CIM asirud? 
26 INPUT 235 


234 PRINT PAT 2,4; 
+48 FOR f=3 T0 a72 >oTER an 
58 LET ar TO F+312=a3RiF+1 Tu 


+ 
Li 
ps 
+ 


SS do 


36 PRINT AT .0:;3% 
40 FOR f=2 TO 65 STEP S2 
50 LET 24$1%f TO f+ii=" "erasitf 


TO _ f+230) 
ES NEXT F 
76 GO TO =S0 
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EL CONJUNTO DE 
CARACTERES 


En esta sección veremos todos los posibles usos del conjunto de caracteres de la 
ROM, después procederemos a mover el conjunto de caracteres de la ROM a la 
RAM (figuradamente hablando) y hacer nuestros propios alfabetos. Pero pri- 
mero, estudiemos una importante variable del sistema, pruebe lo siguiente: 
Entre como un comando directo: 


POKE23606,8 


entonces pulse ENTER, naturalmente. Ahora intente escribir en un programa 
¡si puede!. Todavía más divertido, pruebe de escribir este corto programa. 
Reinicialice la máquina y escriba: 


POQRE 22858,8 

PRINT  IMKEYD; 

IF INKEYBA=" *" THEM PORE 2235 
: STOP 

co Ta au 


10%] 
m 
$e 


A E 


Ejecute (RUN) el programa y escriba algo —¿qué sucede?. Las letras A apare- 
cen como B, las B como C y así sucesivamente. Quizás desee demostrar esto en 
su club de Spectrum, entonces dígales que el Spectrum se ha roto. Realmente, 
si Vd. pulsa la tecla SPACE (sin el SHIFT) el programa reinicializa las cosas. 
Todavía más divertido, quizás Vd. quiera cambiar la línea 10 por: 


14 POKE 2230600,4 
¡para medio confundirse Vd. mismo!. 


Explicación: 23606/23607 es la dirección de la variable del sistema que le dice al 
computador donde se encuentran las listas de los datos requeridos para la visua- 
lización de los caracteres en la pantalla. Esta variable del sistema de dos bytes 
contiene un número, 15360, después de conectarla que es 256 menos donde esta 
tabla comienza en la ROM. Así pues, 15360 + 256 = 15616. Aquí es donde 
comienza el GENERADOR DE CARACTERES DE LA ROM. Hagamos un 
PEEK allí para ver lo que hay. Entre y haga un RUN de este programa. Debe- 
ría obtener resultados similares a la ejecución del ejemplo que sigue a continua- 
ción: 
14 FOR A=15818 TO 1592335 


S< 4 PRINT PEER PA 
34 NEXT RA 
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a cadadn 


lndsr+ ind ib 


No fue demasiado informativo, ¿no?. El 15639 no era significativo, tan solo un 
número escogido para proporcionar un corto listado del ejemplo. Aunque mire- 
mos el conjunto de caracteres en el manual no parece tener ninguna relevancia 


para los números que se imprimen. ¡Ah,de acuerdo!, me olvidaba de otro requi- 
sito. 


Intentémoslo en binario, ya que se supone que las computadoras hacen un gran 
uso de ello. Escriba y haga un RUN de este programa, teniendo en cuenta que 
los dos apóstrofes en la línea 70 son bastante fáciles de olvidar. 


20>LET P=PEER + 

Se FOR B=7Y TO 9 STEP -2 

40 PRINT AT 21,B;P-2%1NF? (Pr) 
56 LET P=INT" 1P.2)3 

£0 NEXT E 

TO PRINTOAT 21,12A' * 

3 NEXT A 


serfcuraa 156180 
Sacaaaa i35917 
suRgaavyv i55i3a 
Ssopcuaaa 1i5Suin 
Socevurua isoz 
suuLvVaua i5uni 
suneVnaan i5uzs 
Suecuvaa i5oz23 
dugévvna 15024 
¿uuluvua 15025 
ps RR 155285 
seejceaa 1355827 


anuldaua 155023 
aaVsunDda iSu2r 
auvludga 155938 
UV ÚDaVa 156301 
savrtuva iSux32 
¿2aliuVdlue 15833 
suluvlus 150734 
dadvVueo 155035 
¿ueñgguva 15535 
duevvvvy 155037 
duero 15533 
¿apuvteela 15539 


No parece que hayamos ganado nada, sin embargo, intente imaginar la colum- 
na izquierda de la impresión sin los ceros así: 


15617 


Pp oRRerR 
p 
(1, 
ñ 
ro] 


Pp 
Pe 
po 
[0] 
o 
[5] 
a 


Lo que debería ver es un ESPACIO, un signo de admiración y algún otro sím- 
bolo (si es que Vd. es imaginativo). Para nuestro próximo truco escudriñaremos 
el generador de caracteres por entero de manera que veamos lo que está conte- 
nido en sus oscuras profundidades. Para apreciar mejor la imagen de la panta- 
lla usaremos W en lugar de unos. 


10 FOR A=15616 TO 1653583 
20 LET P=PEEK Et 

50 FOR B=7? TO 9 ST -1 

20 PRINT AT 21, dd END 1.P-2% 
INT 1P+ 213 =1 

59 LET P=INT 1P+-2 

609 NET 5 

70 PRINT AT 21,12;A'* 

50 NEXT A 


Un ps ama: Aa cara A (PX IN 
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Aquí hay un ejemplo de lo que obtendrá. 


15793 
15794 
15795 
157965 
15797 
15795 
15799 
155900 
15591 
15892 
158393 
15504 
15595 
155065 
15597 
158085 
15899 
15810 
155811 
15512 
15815 
15814 


Si Vd. tiene una impresora y le gustaría guardar una copia sobre papel, puede 
usar este programa el cual le dará una larga impresión de todos los caracteres 
almacenados en el generador de caracteres de la ROM. Aviso: ¡necesitará una 
gran cantidad de papel para esto!. Pulse BREAK para detener la impresión 
cuando ya tenga suficiente. 


19 FOR As= EAT” FO: 10639583 


á ar. 
ze FOR B=5 TO 3 “STER -i 
IE P-INFT- 1P-2752 THEN LET 


s0 E T PZ=INFT (1P/4Z? 
70 NEXT E 
50 LPRINT AR;¡TAB 10,A¡TAB 18;P 


KR A 
390 NEXT AR 


A estas alturas debería coger la idea de que el generador de caracteres contiene 
un patrón de un bit por bit de lo que parecen los caracteres en la pantalla. 
También, si Vd. mira el Apéndice A del manual del Spectrum verá que todos 
los caracteres aparecen en el mismo orden en la pantalla igual a como lo hacen 
en el apéndice. Por lo menos los que están entre el rango de 32 a 127. El resto 
son los CARACTERES DE CONTROL (que en vez de aparecer en la panta- 
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lla la controlan), los caracteres gráficos (que están guardados en algún lugar), 
los gráficos de bloques (los cuales son ”calculados” más que almacenados en 
patrones de bits) o están hechos de varias combinaciones de caracteres en el 
generador de caracteres (o sea, RUN, INKEY$, IF, etc.) en cuyo caso hay otra 
tabla en la ROM que indica las combinaciones. 


No es ningún accidente el que estén por orden numérico. Están así deliberada- 
mente para que al computador le sea más fácil encontrarlos cuando los necesi- 
te. Para comprender esto veamos como un carácter se organiza cuando mira a 
la pantalla, por ejemplo el número 8: 


Un carácter está compuesto de hasta ocho por ocho ejes (dibujo de casillas o 
pequeños cuadrados si Vd. prefiere) en la pantalla. Por suerte parece ser de 
ocho bits por byte (¿¿¿puede creerlo???). Así pues, si cada byte de ocho bits 
representa una línea horizontal de caracteres, podríamos almacenarlos en un 
patrón de caracteres de ocho bytes. Así es como funciona el generador de ca- 
racteres: hay ocho bytes para cada carácter. almacenando el patrón como una 
serie de ceros y unos. Los unos representan las partes de los caracteres acopla- 
dos y los ceros representan las partes en blanco de los caracteres 
(en papel de color). Así es como aparecería el patrón de la figura 8 (la columna 
izquierda es el patrón del bit, la columna derecha muestra donde está colocado 
en decimal en la ROM): 


cocvuonea 152083 V 

3uliliua 158309 su 
231389810 15319 58 
39111109 15811 sg 
21889818 15312 58 
319008109 15813 $6 
28111199 15914 su 
esaceaaaa 15315 AS 


Una utilidad que podemos añadir a esto es la de poder ampliar los caracteres. Si 
imprimimos un JM] para cada 1 podemos ampliar los caracteres ¡ocho veces!. 
Intentémoslo. El programa es un poco diferente de los que hemos utilizado 
hasta ahora, así pues, estúdielo cuidadosamente. 


iu LET atraves=ú 

20 LET abajo=a 

38 INPUT a% 

48 LET c=CODE as 

5se FOR k=3u Ta 7 

5u LET p=PEER r15IOD>cr+I>x) 

7A FOR Ff=2 TO 7 

32 PRINT PAT 3D3j03+>R./2i7oves+7- 
FT" AND OS ip/zi=312 

SY LET p=IMNT ip. 

1204 NEXT f 

118 NEXT K 

128 1 atraves+39231 THEM LET ab 
a3J0=3ab3.j0>3>3 

138 LET atraves=atfaves33 PMOo 
tiTaves+39:=31 

144 60 To 9u 


Las dos variables abajo y a través controlan donde se imprime en la pantalla. A$ 
es el carácter que Vd. entra para ampliar. Debería consistir de un carácter con 
un CODE (CODIGO) de 32 a 127 (es decir, ESPACIO para el símbolo del 
copyright(O)). ces el CODIGO de este carácter. Observe cómo en la línea 60 se 
usa el número 15360 para el carácter situado en la parte inferior de la tabla del 
conjunto de caracteres. Vd. puede que recuerde que este número es 256 menos 
que la dirección del comienzo de la tabla. ¿Por qué?. 
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Bien, el primer patrón en la tabla es el del ESPACIO, que es CHR$(32). Re- 
cuerde también que hay ocho bytes para el patrón de puntos de cada carácter, 
de forma que todo comienza en múltiples de ocho. 8 veces 32 es 256 y 15360 + 
256 es 15616, el comienzo de la tabla en la ROM. Los bucles van dividiendo por 
dos buscando el resto para determinar la forma en una parte de la pantalla. 
Entonces se ajustan los valores abajo y a través. Quizás Vd. prefiera entrar esta 
línea adicional por si el programa no puede mantener los caracteres que se 
entran (Vd. debe reentrar cualquier carácter que haya sido rehusado). 


55 IF CODE a$<32 OR CODE as$>12 
7? THEN GO TO 30 


Los caracteres que aparecen son muy grandes y Vd. no puede meter demasia- 
dos en la pantalla. A continuación viene cómo usar el PLOT y el DRAW para 
generar caracteres de varios tamaños. 


2 REM Caracteres 
20 INPUT, "Veces mas ancho ti=An 
ormal)7?";¡masancro 


28 INPUT "Veces mas aito £1=n> 
raat37?"¡masalto 
36 LET atraves=m253N<ho*+5- -1: E 


7 
40 INPUT_a3$: 1F ac" 0R a$>“£ 
" THEN GO TO £% 
506 FOR a=8 TG 7 
60 LET pesk=PEEK (15S35698+CODE 23 
$x5+a) 
70 FOR b=98 TO 7 
50 IF peek-28: INT f(fpeer.“23 THEN 
e t=12 TO amásalto: PLOT atrave 
-bimasancho,abajo-asmasaito-t: 
DRA 1-masantho, DB: MEXT £ 
e LET peek=INT tfpeekx.27: NEXT 
220 NEXT a 
1589 LET atraves=atraYves+e2asancyr 
DE 
130 IF atraves>255 AND abajo—rma 
saltozS>>masa21tor5-21 THEM LET ata 
JO=23b32jO0-MASALLOFS: LET atraves= 
masanchorsc-1 
140 IF atraves>255 AND 2323 30-ma 
3saltor5<cmasalito:5 TREN PRimHt er 
21,5": FOR a=1 TOGO masaiteoe: PRINT 
: NEXT a: LET atraYves=aR2a52nac0h0+* 


-1 
150 GO TO 49 


El programa es complicado, de manera que estudie la siguiente información 
cuidadosamente. Cuando Vd. ejecute el programa,primero le preguntará cuán- 
to más ancho de lo normal quiere que aparezca el carácter en la pantalla. Si 
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Vd. quiere que los caracteres sean tres veces más anchos que lo normal, enton- 
ces debería escribir 3, seguido de ENTER. Si quiere el ancho normal de los ca- 
racteres entre 1. Debería hacer lo mismo cuando se le pregunte cuántas veces 
quiere los caracteres más altos de lo normal. El programa comenzará en la par- 
te superior de la pantalla e irá bajando a través hasta que alcance el final, cuan- 
do toda la pantalla se deslize arriba para hacer espacio a una nueva línea. El 
programa se ejecuta en color negro y blanco permanente (o los colores perma- 
nentes INK y PAPER que Vád. fijó) pero si lo desea puede añadir otros colores 
al programa. 


Las variables masalto y masancho se utilizan para hacer que su significado que- 
de claro. Lo mismo sucede con la variable peek (está escrita en minúsculas en el 
listado para que se distinga de la tecla PEEK) y las variables atraves y abajo. 
Existen coordenadas para los comandos PLOT que se usan más adelante. El 
176 es uno más que el valor límite de 175 para PLOT — no se preocupe si hace 
errores de generación. atraves comienza a partir de una cierta cifra en la panta- 
lla ya que el dibujar se hace de derecha a izquierda debido a la manera de 
evaluar el sistema binario. La línea 40 busca para ver qué tecla está pulsando. 
Este programa usa el INPUT para ver qué letras o símbolos quiere ampliar pues 
no existen demasiados símbolos con el INKEY$, que por otra parte le evita 
pulsar ENTER todo el tiempo. La línea 50 comienza el bucle que busca en el 
generador de caracteres los ocho bytes que necesita para ensamblar el carácter 
en la pantalla. Estos bytes se encuentran en la línea 60. El bucle que comienza 
en la línea 70 determina el patrón en su pantalla tomando el byte del generador 
de caracteres y repetidamente revisa para ver si los bits individuales están fija- 
dos de manera que áreas adecuadas puedan ser sombreadas en la pantalla. Esto 
se hace dibujando una línea, la cual es más masancha que un eje. Esta se hace 
más alta para que sea proporcional a su tamaño. La línea 100 divide el valor del 
peek por 2 de manera que el siguiente bit pueda ser revisado. La línea 120 fija el 
nuevo valor horizontal — si éste se sale del margen derecho de la pantalla, se da 
un nuevo valor a la variable atraves y el programa decide si es necesario el 
deslizamiento de la pantalla, el cual se hace mediante el PRINT bastantes ve- 
ces. La variable atraves se reinicializa a su valor primitivo para una nueva línea 
de caracteres. Después de todo esto, la historia vuelve a repetirse otra vez. 


El programa funciona mejor con los valores enteros de masancho y masalto 
pero Vd. también puede obtener buenos resultados para valores no enteros de 
masancho — aunque sea creando la ilusión de tener más o menos caracteres por 
línea coordinándolos con el valor de la variable atraves: 


caracteres normales en pantalla 


atraves = - 
caracteres requeridos en pantalla 
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o sea, para cuarenta caracteres por línea, através sería 32/40 o 0.8. A continua- 
ción vienen algunos ejemplos producidos por el programa incluyendo uno con 
40 caracteres por línea. 


ABCDEFGHabcde Fgh 
D123455 78984811 / 


X= Y == EE SES SP 


ABCDEFGHabc 
VI23456759! 


900 
Ph 


d 
q: 


abede fghi ¿¡kimnapqrs tuvewxy ZABCDEFGH IUKL MN 
DPGARSTUVYUAY ZA 1234567B9! CEBA? y CINES 
EA"; ., eco 8 


Utilizando el mismo principio podemos usar el programa para crear la imagen 
de los caracteres en un espejo: 


aYd31136d73b 
317 PU ISC 


Uursczalcaraecedrce entiiimnoaapraluv 
wWx Y: ASIIIAIDAI CAJMMOSane TUU YB 
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REH Expejas 
1 INPUT "Veces mas ancho fli=55 
Ps ancha q 
"“GECES MaS a3ttco t1l=rmeo 
tta 


0 


N 


csi: LET abaja=17 


48 INPUT añ: IF a%<"" OR 255€ 
“ THEN 0 TQ dx 

5 FOR a=a To 7 

ón LET peek=PEER 1SI8Ru+coDEe y 
$43+2) 

7 FOR b=a Toa 7 

3 IF peerk-2rINT (peeñs22 THEN 
FOR t=1 TO masatta: PLOT atrave 
z=+b+masancho, abajo-armasatia—-t: 
DAR l-masancho,%: MEXT 1 

14 LET peek=INT K(pecetr2alt: MEXT 


b 

11% NEXT a 

ES LET atraves=atraves+masanch 
pS 

150 IF atraves>2oS55-rasarnchasa 
a A oo 1 Y 
E a3bx3 = ¡JO — 3: 
a dd ARS asatia13: 

140 Ir arraves>288-nasarnchoz3 A 
ND abajo-masatiocraxmasaitoara THE 
H PRINT AT 21,317": FOR a=1 TO ms 
satto: PRINT : NEXT a: L£LET atraw 


Ss= 
158 80 TO ¿e 


El siguiente paso es transformar el programa en una subrutina para usar en sus 
propios programas: 


1 REM SGgbrrutin 
3 LET rmrasancho= 
S LET masalto=4 
12 LET atraves=35 
16 LET abajo=120 
28 LET ag$="Demostrarcion”" 
24 GO SUE 40 
30 STOP 
40 FOR d=1 TO LEN a$ 
S90 FOR a=9 TO Y 
60 LET peek=PEER (2153590+CODE a 
$ (d)18+3) 


a 
2 


30 


70 FOR b=9 TO Y 

50 IF peex-28 INT fpeeks-23 THEM 
FOR t=31 TO masailto: PLOT atrava 
3-bemasancho, abajo-2rmasatto- =t: 
DRAY 1-masantho, O: MEXT t 

30 LET peek=INT (peer. Z23: MEXT 


b 

100 NEXT a 

2110 LET atraves=2!tr3Y25+m2353N 
0%5 

120 1F atraves>255 AND aba.jo-ma 
be a 1 TREN LET ata 
JO=3b3j0-MISALTOE LET atraves= 
masancho:5-1 

159 IF atraves>255 AND a2r2j0-ma 
a ltorS<crmasaitor5 TREN PRINT ET 
21,531": FOR a=1 TO masaito: PRIM 
ds a: LET atrarezs=m252aNhro 
*a—- 

140 NEXT 23 

150 RETURN 


Antes de llamar a la subrutina (que está situada en las líneas de la 40 a la 160) 
Vd. necesita especificar cuatro variables, masancho, masalto, atraves y abajo, 
igual como se utilizó en los otros programas. atraves y abajo necesitan especifi- 
carse como las coordenadas del PLOT de la parte superior del primer carácter. 
AS$ es la cadena que contiene los caracteres a añadir y éstos se hacen uno por 
uno mediante el bucle extra D del bucle FOR/NEXT. También debería ase- 
gurarse de que A$ no contiene ningún carácter que no sea permitido o adicio- 
ne esta línea al programa, la cual hará saltar el carácter no permitido (son los 
que tienen los CODIGOS menores que 32 y mayores de 127): 
45 1F a$ftd3)<" “ OR ag1gr32> a" TT 
HEN GO TO 2150 

La subrutina también puede utilizarse con los gráficos definidos por el usuario 
mediante la adición de una línea de programa que determina cómo se deriva el 
valor del peek. 


i REM Subrrutina 

4 LET masancha= 

3 LET masatia=:a4 
12 LET atraves=23S3 

18 LET abajo=110u 
20 LET as="Demostración” 
24 GO SUS «4u 


48 FOR d=1 TO LEN ax 


IF axid1<" " OR agsridilo Er TF 

HEN 60 TO 158 

Sa FOR a=4 TQ Y 

58 IF CODE a$i41331 AMD CcoDe y 
514)1:<12323 THEN LET peekh-=PEER (1983 
SU+ CODE a$idid>r 37 

61 1F COTE añíiídidoid4a Pro coceEe 
35d) <105S THEN LET peek=FEER (Usa 
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R "a”+tCcCoDE e 3>32 
72 FOR b=%u 
3u IF peehñ-2xINT tpeedh.-2) THEM 
FOR t=1 TQ masatto: Fiat atrave 
3-bimasancho,abajo- amara ita-=t: 
DRAU 1-masantho.B: MEXT 1 , 
9Y LET peek=INT ipeeñtr22d: NEXT 


b 
188% NEXT a 
a LET atraves=atravwves>masanch 


+3 
“138 IF atraves>255 AND a3bajo-m3 


sattoz3>»masattax83-1 THEM LET abs 
jOo=abajo—-masaitoz3: LET atraves= 
masanchaxza-1 

138 IF 3113W€e5>255 AHD aba.Jjo-"s 
Ssattozr3:xmasatioarza THEM PRIMT AT 
A FOR a=1 TO masaíto: PRIM 
AA EXT a: LET atraves=wasancha 
+ 


140 NEXT d+ 
158 RETURN 


Nuestro siguiente proyecto será crear un nuevo conjunto de caracteres en 
RAM que puede utilizarse para escribir en la pantalla, producir listados, etc. 
de hecho, será idéntico en todos los aspectos menos en la apariencia. El manu 
del Spectrum sugiere que esto se puede hacer, pero ofrece muy poca inform: 
ción para ello. El nuevo conjunto de caracteres será colocado sobre la RAM 
TOP, debajo de los caracteres para gráficos definidos por el usuario. Se 
facilitará una guía paso por paso de como hacer esto y como redefinir cualquie 
carácter que desee. Todo depende de que las variables 23606/7 del sister 
apunten al comienzo del conjunto de caracteres. Las direcciones, donde se 
posible, se encajan con los Spectrums de 16K de RAM y de 48K de RAM 
menos que haya un método para calcular las direcciones para máquinas co 
cualquier cantidad de memoria. El nuevo conjunto de caracteres contendrá u 
texto de estilo itálico con esta apariencia: 


ESTI es yna ¿imprezsian que Nu2z- 
A ET RYERO TONSUNTO DE GARA - 
TEMES en 323i9N. 3012 32 238 
regefinido ¿as 1etr35 y (293 Suna 
93 80123335789, 34824e nas tarda 
veran ana redefinis 2u3iquies 
ERCIZÍSO” Leia. 
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De 


VNINERLEI, (125 Simbolos £3tes 
2INS SEX permaneren sín canbiosy 
24nNZue pueden ser redofinidos 
53 52 Jesed, 4 CINLiIN43Ni02n 
NHISÉCNIMNIS UN LISIS Araduciada 
23N 25le c2nRsunta de c3ricteres 
Este Listado convierte 3£ Spex- 
ETUM 2 UNA MNIQUIN3A 22 23:37 ibi 
sencilli2. Pego aorraár 2£ ul Lin 
23ractes priísiaido, usando DELETE 
¡ESAS IAF EAN Pulse 2ntes piro 

¿RICCI UNA Na L1inNn23 2 Lex to 
S BURDERA O 

218 PBATNAT INKEY/S; 

2B IE INKEY BCO" A 

EZ] LE LARES PH 

34 a 
32 15 TAKE ERZCARE 22 207 a” 

7 EXRE 85" RH 07: 
30 60 70 26 


Paso 1 El primer paso es bajar la dirección de la RAMTOP en 768 bytes necesa- 
rios(por el generador de caracteres)¡para hacer espacio entre el final del BASIC 
y los gráficos definidos por el usuario en los cuales se almacenará el nuevo 


grupo de caracteres. Como en la versión de la ROM, en el nuevo conjunto de 
caracteres hay 768 bytes. 


Spectrums de 16K: La nueva RAMTOP que se necesita será de 31831, en vez 


del valor normal de 32599. Para determinar la RAMTOP al nuevo valor use el 
comando CLEAR 31831. 
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Spectrums de 48K: La nueva RAMTOP que se necesitará será de 64599, al 
contrario del valor normal de 65367. Para colocar la RAMTOP a este valor 
entre el comando CLEAR 64599. 


Estas dos versiones del comando se basan en números absolutos. Si Vd. posee 
una cantidad diferente de memoria conectada, necesitará reemplazar los núme- 
ros con una expresión que permita que los valores correctos se correspondan 
con las circunstancias. Esto también sucedería en el caso de que Vd. tuviera 
rutinas en código de máquina almacenadas sobre el RAMTOP. Esta expresión 
desvaloraría la RAMTOP de su actual dirección por 768 bytes cada vez que se 
utilizara para buscar la dirección de la RAMTOP en la variable del sistema 
23730/1, restando 768 de esto y usando el CLEAR con este valor de la siguiente 
forma: 


CLEAR (PEEK 23730+256*PEEK 2373 
i-7681 


Si las direcciones necesarias para las máquinas de 48K no aparecen en las si- 
guientes páginas, no importa, en la mayoría de los casos se convierten fácilmen- 
te sumando 32768 a los valores de las máquinas de 16K, excepto, naturalmente, 
para las variables del sistema. A continuación mostramos un diagrama de cómo 
queda el mapa de memoria: 


Spectrums de 16K 


32599 
USR “a” -—1 
Comienzo del 
31831 nuevo conjunto 32767 
RAMTOP de caracteres PRAMT 


Final de |62 dec. Área del nuevo Gráficos definidos 


BASIC |3Ehex.| conjunto de caracteres por el usuario 


Final del nuevo 32600 
conjunto de USR “a” 
caracteres 
31832 
RAMTOP +1 
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Spectrums de 48K 65367 


USR “a” -1 
Comienzo del 
64599 nuevo conjunto 32767 
RAMTOP de caracteres PRAMT 


Final del Área del nuevo Gráficos definidos 


BASIC |3Ehex.| conjunto de caracteres por el usuario 


Final del nuevo 65368 
conjunto de USR “a” 
caracteres 
64600 
RAMTOP + 1 


Paso 2 Ahora el conjunto de caracteres existente debe copiarse de la ROM a 
esta área de la RAM de manera que los que no se quieran reprogramar perma- 
necerán igual a como estaban siempre. 


Versión del Spectrum de 16K: 


10 FOR a=15616 TO _ 163553 
20 POKE 2165218+3,PEEK a 
30 NEXT a 


Versión del Spectrum de 48K: 


2 REM Copiador 21En 


10 FOR a=15616 TO _ 26353 
20 POKE 459854+2a,PEEK 2 
30 NEXT a 


Es importante que esto se entre correctamente ya que cualquier error sería muy 
difícil de corregirse más adelante y Vd. debería empezarlo todo otra vez. 


Paso 3 Ahora vamos a comenzar con la redefinición. Primero le diré cómo 


redefinir al estilo itálico los números, luego las letras mayúsculas y, finalmente, 
las minúsculas. 
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En primer lugar, pasemos a redefinir los números. Entre este programa: 


REM Cargador 15K 


FOR a=1 TO £€6S 
INPUT _ BD 

PORE 351959+2,5 
NEXT 2 


REM Cargadar 43ak 


FOR a=i TO 38e 
INPUT 8 

POKE 64727+2,8 
NEXT a 


Entre estos números como respuesta a las sentencias INPUT durante la ejecu- 
ción del programa de arriba. Primero entre la primera hilera, de izquierda a 
derecha, después la segunda hilera y así sucesivamente... 


CATOÓS PARA LOS NUMEROS 


follo le its to To Es] 


p 
[a 
10) 
[0] 
16) 
[01] 
pa 
mu 
la] 
0 
656000000009 


Observe como Vd. todavía no verá ningún efecto, más adelante cambiaremos 
una determinada variable del sistema. 


36 


Paso 4 Ahora redefiniremos las letras mayúsculas. Use este programa para en- 
trar los ¡208 números que siguen!. 


156. CARGACGOR MAYUSCULAS 


10 FOR A=1 TO 20D83 
20 INPUT B 
39 PORE 32095+A,B 
49 NEXT A 


+35. CARGADOR MAYUSCULAS 
1Q FOR 255 TO 288 


208 INPLIT 

30 POKE 64363+A,B 

4% MEXT A 
GATOS PARA LAS MAYUSCULAS 
a] 12 18 34 652 66 66 4 
pal 285 18 680 34 66 124 0 
B 28 346 32 64 68 55 0 
a 24 20 34 34 685 120 Q 
14] 30 186 606 32 6d 1206 60 
5] 30 16 60606 32 6d Bb QQ 
ta] 28 3 32 76 68 56 0 
9 15 15 6509 36 22 72 ea 
y 62 8 16 16 32 248 Q 
[0] 2 2 d 68 2 Ss6 Q 
o 18 206 $56 ¿QQ 685 BB e 
e 165 16 352 3e 6% 124% Q 
La Ss 5 42 66 6858 565 4 
a 198 26 42 44 $56 ES QQ 
a 28 34 34 683 68 56 AQ 
o 285 138 34 606 6d Bb 0 
2 60 66 66 164 145 1206 Q 
a 285 15 34 66 68 66 Q 
la] 28 34 24 dá 68 56 4 
aj 68 8 8 16 16 32 ls 
Ed 17 34 34 68 6858 566 QQ 
19] 38 34 36 36 40 16 60 
a 33 33 665 56 9B8 56_ O 
e 34 208 2% S6 68 130 0 
a 34. 20 38 16 32 54 o 
La: 62 4 8 16 32 124 Q 


Paso 5 Ahora redefiniremos las letras minúsculas. Use este programa para en- 
trar los siguientes números: 


156k CARGADOR MINUSCULAS 


5 
30 POKEÉ 32351+A,/B 
40 NEXT A 


45K CARGADOR MINUSCULAS 
10 FOR A=1 TO 286 
20 INPUT _B 
38 POKEÉ 65119+A,B 
20 NEXT A 


PATOS PARA LAS MINUSCULAS 

a la) 132 € 60 65 56 Q 
o 16 16 6B 24 £EB6 124 QM 
o o 28 32 232 64 56 A 
o 2 2 28 36 68 556 M 
5 o 258 34 12464 556 4 
a 6 3 12 16 16 32 MB 
2] o 14 158 5354 60 4 120 
F] 16 16 62 54 65 5B5 Bb 
a 4 9 26 8 16 120 0 
o 2 o 4 4 3 48 
3 16 26 56 46 72 68 8 
o 3 18 16 32 32 24 0 
o 2 54 73 73 146 2465 BD 
a o 60 34 34 65 68 0 
a o 28 34 36 68 56 AM 
9 0 28 18 34 60 64 64 
a o 30 18 36 6% 8 30 
o 9 14 16 16 52 32 60 
a 0 30 32 248 4 120 9 
5 4 3508 8 16 18 12 0 
a o 34 34 638 68 $86 8 
0 o 34 34 36 40 16 0 
a 9 65 65 146 146 108 8 
o o 54 20 24 40 53 0 
a 1) 18 36 608 8 16 96 
0 0 680 8 18 32 120 0 


Paso 6 Usándolo. Supongo se sentirá contento de saber que hemos terminado 
de escribir. Para usar este nuevo conjunto de caracteres tenemos que alterar el 
valor CHARS de la variable del sistema 23606/7 (vea el manual del Spectrum 
c.25) que es el puntero del comienzo del conjunto de caracteres. Generalmente 
tiene un valor de 256 menos que el comienzo del primer byte del generador de 
caracteres para facilitar el encuentro de la dirección de los datos para cada 
carácter. ¿Cómo?. Simplemente permite una simple manipulación matemática 
de los CODIGOS, significando que la dirección de comienzo de caracteres 
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individuales puede ser hallada desde el valor contenido en 23606/7 y el CODI- 
GO de estos caracteres multiplicado por 8; normalmente el 23606/7 tiene los 
valores 0 y 60 respectivamente cuando se usa el conjunto de caracteres de la 
ROM en ambos Spectrums, el de 16K y el de 48K, o sea: 


PEEK23606 es 0 
O + 256 * 60 es 15360 
PEEK23607 es 60 


Para hacer este apunte al nuevo conjunto de caracteres, en un Spectrum de 16K 
usaríamos: 


POKE23606,88:P0KE23607,123 (884+256*123=31576) 
En un Spectrum de 48K sería: 


POKE23606,88:P0KE23607,251 (88+256*251=64344) 
VERSION 16K 


POKE 23686,88: POKE 20607,123 


UERSION 48K 


POKE 22586,88: PQKE 22647,251 


Es mejor entrar ambos como un comando directo largo unido por dos puntos en 
la forma normal],pues si se entran como comandos individuales, la instrucción se 
ejecutará de mitad en mitad y a la primera mitad, aparecerá la pantalla llena de 
signos incomprensibles (se hará muy difícil comprobar que el segundo POKE se 
está entrando correctamente). Si todo lo ha hecho bien, lo que escriba ahora 
aparece con un nuevo tipo de letra, aunque nada de lo que había en la pantalla 
permanece como estaba. Los valores POKEados dieron a 23606/7 un valor de 
31576 para los usuarios de 16K y 64344 para los usuarios de 48K. Para volver al 
conjunto de caracteres de la ROM en ambas máquinas de 16K y 48K use: 


POKE23606,0: POKE23607,60 


Vd. puede utilizar ambas como sentencias de programas de manera que Vd. 
pueda volver a cambiarlas y así sucesivamente entre ambos conjuntos de carac- 
teres durante un programa si Vd. quiere. Como todo lo que se ha impreso 
permanece en la pantalla a menos que lo sobreescriba o borre, puede libremen- 
te mezclar varios tipos de letras en la pantalla si Vd. desea. También puede 
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hacer listados de la impresora en caracteres escalonados si desea. El conjunto 
de caracteres escalonados tiene una gran ventaja con una impresora ZX ya que 
usando el conjunto vertical normal muestra cualquier deficiencia en la calidad 
de la impresión. En esto ayuda el nuevo conjunto de caracteres escalonados. 
En realidad, la apariencia es lo único que le induce a un problema. El SCREEN$ 
identifica los caracteres en la pantalla buscando en el generador de caracteres 
un carácter de acoplo desde el cual puede decirle qué carácter es. Si Vd. está 
usando el nuevo conjunto de caracteres pregunte SCREENS para identificar 
un carácter impreso con el antiguo conjunto de caracteres de la ROM, no será 
identificado y retorna la cadena vacía. El SCREENS debe buscar en el mismo 
conjunto de caracteres desde el cual fue originalmente escrito el carácter en la 
pantalla. ¡Esto es sólo un problema si es que Vd. está cambiando entre dos o 
más conjuntos de caracteres!. 


Paso 7 Grabación y lectura en la cinta. Antes de hacer nada más, grave el nue- 
vo conjunto de caracteres en la cinta de forma que Vd. pueda cargarlo al com- 
putador cuando Vd. lo necesite otra vez. Me complace decir que es más fácil 
cargar y usar que entrar todo de nuevo. 


Para grabar el nuevo conjunto de caracteres en la cinta desde un Spectrum de 
16K: 


SAVE”letras"CODE 31832,768 


Para grabar el nuevo conjunto de caracteres en la cinta desde un Spectrum de 
48K: 


SAVE”letras"CODE 64600,768 


Para volver a cargar el nuevo conjunto de caracteres desde la cinta a su Spec- 
trum de 16K, escriba y entre: 


CLEAR 31831:LOAD”letras”CODE 31832,768 


En una máquina de 48K: 
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CLEAR 64599: LOAD”letras”CODE64600,768 


Recuerde VERIFICAR después de salvar el conjunto de caracteres porque si 
algo ha ido mal tendrá que reescribirlo todo otra vez. Incidentalmente, LOAD- 
””CODE recargará otra vez el conjunto ue caracteres en el mismo lugar en que 
se grabó, mejor salvar un poco cuando se escribe. Así es como aparecerá el 


nuevo conjunto de caracteres: 


Conjunto normal de caracteres de la ROM: 


E A E 
1234380790Q*%10= > 
ARABe2EDEFGCHAHICGDR LM? 
Sa R3STOUSxYoztftssto 
bcCcdderfra3ahigkdisqpec 
Tr ss 1UvYxqoaiddse 

Conjunto alternativo de caracteres de la RAM: 

CL 

3321238567898: = 
2 AB5EDEFERTSSZYEL A 
P0ASTOUVSXYZUS> 3 

£Eocbedest2% 3 xk 1d 
P.REFStuvuvex sz 17 


Excepto para las restricciones de la SCREENS ambos conjuntos trabajan exac- 
tamente igual. Las funciones, palabras del BASIC, etc., funcionan indepen- 
dientemente del tipo de caracteres usado. Solamente las letras y números han 
sido redefinidos, de manera que, si Vd. desea redefinir caracteres individuales 
en lugar de un trabajo como el anteriormente descrito, a continuación verá 
cómo se hace. Vuelva hasta el Paso 2 de arriba, después entre el programa. Las 


dos versiones, una para 16K y la otra para 48K: 


Om: 


(y >+ xv" 
Bal PES 


A TI 


Redefinicion caracteres t1oK) 

S POKE 238048,33: PORK=e 20927, 
23 

10 INPUT “Que caracter dezes 


efinir_? "¡cx 
28 IF cs="" THEN 3TOP 
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3NM_UIF 2%5<7 “" DR Ca WEY THEN ou 


48 LET c=cobeE c5 

Se FOR s»¿e=eons To 7 

58 INPUT ('¿Que vator para ta 5 
iltera "¡a+1;" 7? “);vVvataor 

A PORE Sis7Orcióra va tar 

30 PRINT PAT 2,8;c5 

29% NEXT 3 

10 60 TO 12 


NT “Rede Finmiciar Caracit 


il PRI 
25 (BRA *” 


S POxXKE 22039823,33 POorZz 2ada7r, 2 
X= 
Sd 

ii INPUT. “¿Que caracier desees “Y 
zfinica 7? “";3CcwÑ 

282 IF 23%="" THEN Tor 

BC IF Cc: “ OR 233" THAEmM UN 
TO 12 


6% INPUT (¿Que Valor pafa ta h 
iltera "¿a+1i3” 7? “);vaitars 

78 POKE S434d4+c ira va tar 

34 PRINT AT 4,%;Cc5 


28 NEXT _ a 
1098 60 TO 1u 


Una vez haya copiado el conjunto de caracteres desde la ROM dentro de la 
RAM, ejecute (RUN) el programa. La línea 10 le pregunta qué carácter desea 
cambiar. Por ejemplo, si Vd. quiere cambiar el símbolo del paréntesis ”(” en 
otro estilo, entre (. 


Si quiere parar el programa, pulse ENTER y el programa se detendrá si Vd. 
pulsa ENTER para entrar una cadena nula. La línea 30 restringe los caracteres 
que pueden ser redefinidos desde el ESPACIO hasta el símbolo del copyright 
O (CHR$ 32 a 127). 


c es el CODIGO del caracter a redefinir. -Se utiliza para determinar dónde está 
el carácter (su dirección). El bucle en la línea 50 le permite cambiar todos los 
ocho bytes del patrón de puntos del carácter en la RAM. La línea 60 le pide 
entrar el nuevo valor para las ocho hileras de los patrones de puntos. Esto 
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podría hacerse de dos maneras. Debe hacerlo como si se tratara de los GRAFI- 
COS DEFINIDOS POR EL USUARIO; escribir sus patrones binarios, o sea: 


=0 
128+4=132 
2+1=3 


o Dl rfofofele[ ele 00+32+10=112 
ifijrfrfofilr]r/rocorgazorororas 


2+1=255 


Así pues, por ejemplo, para la hilera 1 podría entrar BIN 01010101, entrar 85 si 
decide escribir en números decimales. La línea 70 indica donde POKEar este 
núméro. La línea 80 se mantiene imprimiendo el nuevo carácter en la parte 
superior izquierda de la pantalla de manera que Vd. pueda verlo cambiar. La 
línea 100 envía el programa a la línea 10 para redefinir otro nuevo conjunto de 
caracteres. Quizás Vd. desea añadir una LINEA en la sentencia INPUT en la 
línea 10, especialmente si tiene que entrar comillas para redefinir”. 
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GRAFICOS DEL BLOQUE 


Estos son los símbolos cuadrados” del CHR$ 128 al CHR$ 143 que aparecen 
así (ver también el manual del Spectrum el Apéndice A): 


JOTA Sa 
JN O0OF»-YJEN 


A primera vista, no da la sensación de existir un orden especial en los diagramas 
de arriba. No obstante, Vd. puede entender el porqué de ese orden observando 
el diagrama de abajo, y teniendo en cuenta los números contenidos en el mis- 


mo: 


Donde se acoplen cada una de las partes de los cuadrados, añada a 128 el 
número o los números del diagrama y el total es el CODIGO del carácter que 
Vd. anotó. Por ejemplo, tome este símbolo: 


Esto sería 


CHRÍ(128 + 1 + 8) 
que es CHR$ 137 


Otra manera de ver esto es considerar los bits individuales del CODIGO del 
carácter. Los bits del O al 3 del CODIGO son los importantes: 
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Si el bit O se pone a 1, la parte superior derecha del carácter se selecciona. Si el 
bit 1 se pone a 1, la parte superior izquierda del carácter se selecciona. Si el bit 2 
se pone a 1, la parte inferior del cuadrado derecho del carácter se selecciona. 
Si el bit 3 se pone a 1, se selecciona el cuadrado inferior izquierdo del caracter. 
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LIBRERIA DE SUBRUTINAS 


Esta sección le facilita una colección de subrutinas, las cuales puede grabar 
individualmente en cinta para hacer MERGEs dentro de sus programas cuando 
las necesite. Por supuesto que pueden servirle de base para una serie de subruti- 
nas que Vd. mismo se haga. Todas tienen números diferentes de líneas de for- 
ma que puede usar varias dentro de su programa sin que se superpongan. Están 
numeradas a partir de la línea 9000. Algunas de las subrutinas utilizan los mis- 
mos nombres de variables siempre que se usen en las mismas funciones y resulte 
ventajoso utilizar las mismas variables. La descripción de las subrutinas incluye 
detalles sobre los nombres de las variables usados y los números de línea, de 
manera que Vd. sepa lo que cambiar en caso de ser necesario. 


1. Borrar una parte de la pantalla 
Números de línea usados: 9000 al 9045 
Nombres de variables usados: LINEAS,F 


Esta rutina borrará el número de líneas en la parte inferior de la pantalla especi- 
ficado por el programador para los atributos permanentes actuales. La posición 
del PRINT se mueve a la parte superior izquierda del área borrada, y reiniciali- 
za la posición del PLOT a la parte inferior izquierda de la pantalla (coordenadas 
0,0) como si fuera después del CLS. Se le pregunta entrar un número del 0 al 22 
para decirle a la rutina cuántas líneas hay que borrar desde la parte inferior de 
la pantalla. Vd. puede querer omitir esta línea INPUT y simplemente especifi- 
car las líneas de la variable antes de llamar la subrutina. Si cambia el mensaje, 
procure guardarlo lo suficientemente corto para no deslizar nada más de la 
pantalla. La línea 9025 imprime una cadena de 32 espacios en cada línea a 
borrar y ofrece la posición OVER 0 en el caso de que el OVER 1 tenga un 
efecto global, en cuyo caso ¡no se borrará nada!. No hay ningún control de color 
especificado de manera que Vd. puede incluir algo como PAPER 8; BRIGHT 
8; FLASH 8; para preservar los atributos del fondo de la pantalla, borre el 
texto y los gráficos pero deje igual el fondo. La línea 9010 rehúye los INPUTSs 
no válidos haciéndolos reentrar. La línea 9035 mueve la posición PRINT a la 
parte superior izquierda de la pantalla borrada. La línea 9040 mueve la posición 
PLOT a la parte inferior de la pantalla haciendo un POKE 0 dentro de las 
variables del sistema que contienen las actuales coordenadas del PLOT. 


Eres REM Borrar parte de la pant 
a a 

HERAS INPUT “cuantas lineas”? "¿1 
39010 IF LINEAS:<0 OR LINEAS:22 GQ 
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e RSE REA LINERSS TREN 50 TO 5 
39015 IF LIMERS=0 THEN RETUEN 
3929 FOR F=21 TO 22-LIMERS STEP 
3025 PRINT AT F,9; OVER 98; 


2030 NEXT F 

323055 PRINT_ AT_F+1,0; 

35040 PORKE 25677,0: FPOKE 255875,9 
23045 RETURN 


2. Contestaciones Sí o No 
Números de línea usados: 9050 al 9080 
Nombres de variables usados: R$ 


Esta rutina le permite responder al tipo de preguntas que necesitan una contes- 
tación SI o NO. Cualquier palabra que comienza con una n o N se convierte en 
una N y.cualquier palabra que comienza con una s o S se convierte en unaS. A 
partir de aquí, se puede tomar una acción alternativa. Se debe de contestar con 
sí o no. La rutina no le permitirá continuar salvo que entre una palabra que 
comience con s, S,noN.S,n, oN. Al retorno de esta subrutina, R$ contendrá 
SoN paraSl o NO, respectivamente. Las letras en minúsculas se convierten en 
mayúsculas. La línea 9055 fija la longitud de R$ (la cadena de la contestación) a 
un carácter. Esto significa que si tan sólo pulsa ENTER, la cadena de la contes- 
tación contiene un espacio, el cual no es válido, de manera que pueda volverse a 
entrar la respuesta. Si se entra una palabra de más de una letra, sólo la primera 
se pone dentro de R$ debido al dimensionado. Esto confirma en la línea 9075, 
la cual sólo necesita asegurarse de que R$esSoN. 


23050 REM si o no? 

3055 DIM R$(1) 

39089 INPUT "si o no? "¿Rs 

2065 IF Ra="s" THEN LET Rg="S" 
3070 IF R="n" THEN LET Rg="N" 
3075 IF Rá<c>"S5" AND Rax> "NN" THEN 
50 TO 20560 

23050 RETURN 


3. Activar CAPS LOCK 

Números de línea usados: 9085 a la 9100 

Nombres de variables usados: ZZZ 

Este programa le fija el CAPS LOCK automáticamente mediante una rutina en 


código de máquina de seis bytes que puede entrarse desde el teclado sin la 
necesidad de ninguna otra forma del programa cargador. 
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Al rastrear el teclado es usualmente deseable que la respuesta sea sólo mayús- 
culas o sólo minúsculas, normalmente es molesto tener que comprobar si una 
respuesta válida está en mayúsculas o minúsculas. El problema es que Vd. nun- 
ca puede estar seguro de si el usuario va a enclavar el CAPS LOCK o no. Todo 
lo que la rutina hace es activar el bit 3 de la variable 235368 del sistema a 1 para 
enclavar el CAPS LOCK. Entonces si el programa mira el teclado de forma que 
el usuario no puede cambiar el enclave del CAPS (es decir, usando el INKEY$ 
o IN para buscar en el teclado) no necesitamos preocuparnos más de si la res- 
puesta está en mayúsculas o minúsculas. El código de máquina está contenido 
en una sentencia REM en la línea 9095 (la cual sólo contendría estos seis carac- 
teres después del REM, ningún control de color, etc., lo que ciertamente con- 
fundiría a la pobre máquina). 


! (símbolo de admiración) 
j (¡ minúscula) 


So (carácter 92. Observe que éste no es el símbolo de la 
división. Es el caracter en la tecla D obtenido en modo 
extendido, SHIFT D). 


THEN (la tecla THEN, no las cuatro letras T H E N). 
OVER (la sentencia OVER, no las cuatro letras O Y,E R). 


<> (símbolo de no igual (o diferente) 5 L) 

o el SIMBOLO SHIFT W). Rot 

23,406 q » 09 ¡Lo 4 
La rutina en código de máquina es llamada con la ayuda de una variable del 
sistema llamada NXTLIN, la cual nos ayuda a encontrar dónde se encuentra la 
subrutina en la memoria ya que necesitamos esta información para saber dónde 
comienza el código de máquina. Realmente la NXTLIN nos da la dirección del 
comienzo de la siguiente línea del programa tal como su nombre implica. Hay 
dos bytes para el número de líneas, dos bytes para el marcador de la longitud de 
la línea y uno para el carácter REM. Esto es porque añadimos el 5 en la línea 
9095. La variable ZZZ no es importante para la rutina porque solamente acepta 
el número que se retorna por la rutina en código de máquina. Puede ser cual- 
quier variable que no se use. 


394 


t 
3090 LET IZ 
F*PEER 2835435 i 
20395 REM 1 us TREN SUER <> 
5196 RETURN 
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4. Desactivar el CAPS LOCK 
Números de línea usados: 9105 al 9120 . . AS pl 
Nombres de variables usados: ZZZ 


Esto hace lo contrario de la rutina anterior; desenclava el CAPS LOCK para 
que las letras en minúscula puedan detectarse..Esto, naturalmente, no se tiene 
en cuenta, cuando se usa el INKEY$ simplemente pulsando la tecla CAPS 
SHIFT, aunque es un poco menos útil. Excepto para la rutina en código de má- 
quina y los números de línea, la rutina es similar a la anterior. Los seis caracte- 
res después del REM en la línea 9115 son: 


! (símbolo de admiración) - - 
j (¡ minúscula) 
a 
AS (carácter 92 en modo extendido, SHIFT D no el símbolo 
de dividir). 


Y p? 

THEN - (la tecla THEN, no las cuatro letras separadas T H E N). 
452 

O (gráficos O, es decir, CHR$ 158). 
204 

<> (no es el signo igual, o el SIMBOLO SHIFT W). 


3105 REM Desactivar caps ioch 
3110 LET ZZZ=USR (PEER 238637+25£ 
FPEERKR_ 23656+5) 

3115 REM 2 35x THEM <> 

3120 RETURN 


5. Pulse cualquier tecla para continuar 
Números de línea usados: 9125 al 9140. 
NINGUN nombre de variable utilizado. 


A menudo es necesario hacer una espera en el programa hasta que se recibe una 
señal desde el operador, por ejemplo, mientras se leen las instrucciones. Sin 
embargo, la mayoría de los programadores incluyen el mensaje ”Pulse una tecla 
para continuar” y sus rutinas no tienen en cuenta la pulsación de las teclas 
SHIFT, de manera que no es cierto el mensaje ya que no funciona con cualquier 
tecla. Esta rutina busca en la fila inferior del teclado mediante la función IN 
para verificar si se han pulsado las teclas CAPS SHIFT y SYMBOL SHIFT. La 
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rutina puede fallar si se pulsan dos teclas a la vez de las tres filas de la parte 
superior del teclado, pero esto resulta una combinación harto sorprendente. 
32125>REM Puisar una tecta 
31589 PRINT “Putsa una tecia paras 
cantinuafa” 


2139 IF INKREYA="" AND IN 5527/2=2 
il IN 3270050=253 THEN 20 TO Y 


2146 RETURN 


6. Uso del SCREENS para detectar gráficos definidos por el usuario 
en la pantalla 


Números de línea usados: 9145 al 9195 
Nombres de variables usados: X, Y,A,B,A$ 


Un inconveniente de la función SCREENS es que sólo puede detectar los carac- 
teres con los CODIGOS del 32 al 127 y sus reversos en la pantalla. El 
SCREENY$ funciona recogiendo la dirección del comienzo del generador de 
caracteres desde las variables del sistema y verificando si hay un acoplo del 
carácter en la pantalla. Para hacer que el SCREENS detecte gráficos, es necesa- 
rio hacer que el computador piense que el principal conjunto de caracteres 
comienza en el mismo lugar donde el usuario definió los gráficos para que así 
estos patrones de puntos puedan ser revisados. Una pequeña manipulación arit- 
mética hará querel SCREENS retorne un carácter con el CODIGO correcto. 
Para usar la rutina Vd. necesita especificar dos variables, la Y y la X. Estas son 
para SCREENS (Y,X), siendo la Y el número de la coordenada Y horizontal en 
la pantalla, y la X el número de la coordenada X horizontal en la pantalla que 
Vd. desea examinar. Los valores originales de las variables del sistema que 
contienen la dirección del actual generador de caracteres están preservados en 
las variables A y B de manera que pueden ser refijadas después de utilizar la 
rutina. Esto se hace de manera que Vd. puede usar un conjunto de caracteres 
que está en la ROM y la rutina refijará la correcta. Si Vd. tiene más de un 
conjunto de gráficos definidos por el usuario, la rutina sólo revisará primero los 
caracteres normales, después, si no encuentra coincidencia, revisará los gráficos 
definidos por el usuario. Si el resultado da un carácter identificado, el CODE 
de dicho carácter se cambia para prevenir que el 2ráfico definido por el usuario 
A se confunda, por ejemplo, con el ESPACIO. Esto se lleva a cabo en la 
línea 9180. 


145>REM Partaitts 

158 LET AR=5CREENS Ur, 
15S 1IF Asx2>“" THEN REFÚRN 

1560 LEY A=PEER 20080: LE? D=PES 
235u7 

155 POKE 230u08,PEERK” 2: 

17 PORKE 23007, ,PEERKR 2, 


E 


0 a 


da 


S0 


3175 LET AE=5CREENA Y ,xX2 
3138_IF AX" THEM LEFT AR=CHAS5 
(CODE AM+iio) 

21395 POKE 23005, 

31982 PORKE 23587,8 

32195 RETURN 


7. Buscar una copia de una cadena dentro de otra cadena 
Números de línea usados: 9200 al 9235 
Nombres de variables usados: P,B$,C$ 


Esta rutina le permite buscar en una cadena una copia de otra cadena. Esto 
puede resultar útil en, digamos, un juego de aventuras donde Vd. quiere detec- 
tar ciertas palabras entradas, o en un sistema de introducción donde Vd. quiere 
buscar datos. Si se encuentra una copia del C$ en el B$ después al retornar de la 
subrutina, la variable P contendría el número del elemento en donde comienza 
la copia. Por ejemplo, buscar ENTE en la palabra SORPRENDENTES retor- 
naría 9. Si no se encuentra ninguna copia, entonces la P devolvería el valor 0. B$ 
es la cadena principal, y nosotros buscamos en B$ una copia de C$. La rutina 
trabajará con cadenas de cualquier longitud con los límites de memoria dispo- 
nibles. Sin embargo, las cadenas muy largas tardarán más tiempo en encon- 
trarse. 

3206>REM Subcadena 

3205 LET P=09 

32189 IF LEN C$=92 OR LEN EY$=-90 GR 

LEN C>LEN B%$ TREN RETUEN 

3215 FOR P=1 TO LEN ERK-LEN Cgt+l 

35228 _ IF BS$1P TO P+LEN ChR-11=12% Y 

SEN RETURN 

3225 NEXT_P 

3270 LET P=%3 

3255 RETURA 


8. Convertir los números decimales en una cadena binaria 
Números de líneas usados: 9240 al 9280 
Nombres de variables usados: DEC,D$,J) 


Cuando se trabaja con posiciones de memoria a veces es necesario examinar el 
estado de los bits individuales, o los patrones de unos y ceros de un número 
binario. Aparte de eso, esta rutina puede utilizarse para muchas aplicaciones 
matemáticas donde es necesario convertir entre decimal y binario, y viceversa. 
Si Vd. tiene un número J, entonces esta rutina lo convertirá en una cadena D$ 
de ocho o dieciséis dígitos de manera que Vd. pueda imaginar cada dígito como 
un bit . Así pues, los números desde el O al 255 aparecerán como una cadena de 
ocho caracteres. Desde el 256 al 65535 aparecerán como una cadena de dieciséis 
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caracteres. Si Vd. no quiere esta característica de "longitud automática” simple- 
mente borre las líneas 9270 y 9275. Antes de llamar a la rutina defina la J como 
el número que Vd. desea convertir a binario (osea, LET J = 255), entonces use 
el GOSUB 9240. El DEC está hecho para ser una copia del J, de manera que el 
valor pueda cambiarse si se necesita con la rutina, pero guarde el valor de J 
cuando retorne desde la subrutina. La división repetida por dos nos ayuda a 
construir el D$ dentro de una cadena, la cual es el equivalente en binario de la 
J. Si Vd. desea convertir el D$ en un número decimal use VAL (”BIN” + D$). 


3240> REM Decimal a Binario 

3245 LET DEC=4J 

3259 LET Du="" 

3255 LET DA=STR% [(DEC-INT (DEC +-< 
¿2 34D 

22509 LET DEC=INT (DEC/-25 

32582 IF DESC? THEN SO TS 39253 
3275 IF LEN DFcS THEM ET DE="00 
300000" (1 TO 16-LEM DH) +Ok 

32599 RETURN 


9. Convertir una cadena binaria en un número decimal 
Números de línea usados: 9285 al 9315 
Nombres de variables usados: DEC,SUM,E,E$ 


Para usar la subrutina defina la cadena E$ como una cadena de dígitos binarios 
con un 1 representando los unos binarios y un O representando los ceros bina- 
rios. Por ejemplo, LET E$ = ”1101”. Entonces el GOSUB 9285 y el DEC 
harán el equivalente decimal de E$. Naturalmente, esto podría hacerse con 
números binarios usando BIN, pero es ocasionalmente necesario almacenar 
información como una cadena de forma que los bits individuales puedan ser 
revisados: Estas rutinas le permiten trabajar en números binarios y decimales y 
convertir según su necesidad. Es posible usar el BIN para convertir una cadena 
binaria a un número decimal (usando el VAL) tal como se muestra como segun- 
da alternativa, pero está sujeto a las limitaciones entre el VAL y el BIN. 


3923S>REM Binaric a Decimat 

3228 LET DEC=2: LEFT SDUbH=1 

32295 FOR E=LEN E%5 TO 1 >TEP -1 
3300 IF ESiEl%*="1" THEM LEFT DEC=f 
EC+3UM 

3385 IF EB5KE) os OR EBM1E%="1" T 
HEN LET SuUM=SUME2 

3318 NEXT E 

2315 RETURN 


3255>REM Binario a Cesmal 


3299 LET DEC=UVAL 1"DIN “+E%) 
3295 RETURN 
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Con ambas versiones de los programas Vd. puede incluir espacios entre los 
dígitos de E$ para facilitar la lectura espaciando los números así: la cadena 
”1111111111111111” (dieciséis unos) podría entrarse así: ”1111 1111 1111 1111” 
sin afectar para nada los valores porque la rutina salta cualquier carácter que no 
sea unos o ceros. Usando el BIN Vd. podría separar los dígitos del número 
binario con espacios pero cualquier otro carácter podría causar un error C, sin 
ningún sentido en BASIC. 


10. Redondear a 2 posiciones decimales 
Números de línea usados: 9320 a 9345 
Nombres de variables usados: F$, VALOR,LF 


Esta rutina redondea la variable VALUE (VALOR) a 2 posiciones decimales y 
si es necesario añade un cero para completar las posiciones decimales. Esto es 
muy útil para cálculos que involucran dinero. El valor es devuelto una vez la 
cadena F$ está preparada para la impresión o decodificación con el VAL si se 
necesita manejarla como un número. Por ejemplo, si el valor fuera 0.678 la 
variable F$ de la cadena sería 0.68. Vd. podría añadir el símbolo E o $ si lo 
necesita durante la impresión. Antes de llamar a la subrutina declare el VA- 
LOR en las líneas de LET VALUE = 89.2345 o INPUT ”Entre el coste del 
elemento”; VALOR. Debido a como el Spectrum maneja los números decima- 
les en la memoria, a veces sucede algún fallo en el cual la posición del tercer 
decimal es 5. 0.005 se tratará como incorrecto, terminando como 0 en lugar de 
0.01. Hay una respuesta muy simple, añadiendo 0.5 en la línea 9325; algo así 
como 0.500001. 


3328>REM Dos E 


es decimates 
39325 LET FS%=5TRYX INF C(UPACLORI11ID3 
+5.5) -/-109) 


9330 IF Fstid)=".” THEN LET Fa="uy 


“+FsS 
3335 LET LF=LEN FaA-LEN S3TRA INT 
UAL FA 


23348 LET E e . 00” RAMO LAF=9D]4 
("Q” AND LF=21 
32345 RETURA 

11. Ayudas del teclado para juegos gráficos 

Números de línea usados: 9350 al 9380 


Nombres de variables usados: X, Y 


Las rutinas descritas aquí muestran como todas las secciones del teclado pueden 
utilizarse para controlar el movimiento de la pantalla en direcciones determina- 
das. Ya no son necesarias, por ejemplo, más búsquedas nerviosas de las teclas 5 
y 8. 
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En la primera rutina, la mitad izquierda del teclado mueve hacia la izquierda 
y la mitad derecha del teclado hace lo mismo pero a la derecha. Con una opción 
de 20 teclas para moverle en una dirección, no debería tener ningún otro proble- 
ma en encontrar las teclas correctas para el movimiento. Lo único que tiene que 
tener en cuenta es no pulsar la tecla CAPS SHIFT y el SPACE pues causan un 
BREAK y detienen el programa. 


El control causa un cambio del valor de la variable X. Esto podría utilizarse 
como la coordenada PRINT o PLOT de un objeto en la pantalla. Depende de 
Vd. determinar los valores mínimos y máximos que la X puede tomar. 


3558 REM Movisienta izquierda O 

Derecha 

23355 LET X=X>11N_ D1I4299+1N5N S/rIéz 

IN 491582» 1IN 232708:<01i820)-(1A si 

3SO+IN S645IM+ IN SSuc2+iN us razol 

320) 

236€ RETURN 
La segunda rutina suministra el control para el movimiento en ocho direcciones 
dividiendo el teclado en cuatro secciones; la hilera de arriba para subir, la mi- 
tad izquierda de las dos hileras centrales para la izquierda, la mitad derecha de 
las dos hileras centrales para la derecha y la hilera inferior de teclas para bajar. 
Pulsando adecuadamente las combinaciones de éstas puede moverse en diago- 
nal. La X es la coordenada de la posición PRINT a través de la pantalla y la Y 
es la coordenada de la posición PRINT hacia abajo la pantalla. Otra vez Vd. 
debería fijar los límites de los valores que estas variables pueden tomarle. 


3365S>REM Mover 4 direcciones 
3570 LET X=X+11IN ISLEOFIM 57342 c 
>510)-(IN 64510+1N £5022c<:510)1 
375 LET Y=Y+11N O05279+1IN 327D6< 
:510)- (IN 635356t+1IN 61435:<:510)5 
35896 RETURN 


12, Clasificar una cadena 
Números de línea usados: 9385 al 9415 
Nombres de variables usados: S,T,S$,U$, USADO 


Esta rutina le permitirá clasificar una matriz de cadena por orden alfabético en 
el supuesto de que Vd. sepa cuántas han de clasificarse. USADO es la variable 
que dice cuántas cadenas hay en la matriz. Así pues,si Vd. había declarado an- 
teriormente DIM S$ (20,20) y lo había asignadoo a 15 cadenas, USADO ten- 
drá un valor de 15 porque no hay nada que le diga clasificar las otras 5. Las dos 
variables restantes se usan para controlar los dos bucles, así como una cadena 
temporal que se utiliza durante el cambio del contenido de dos Cadenas de la 
matriz. 
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33385S>)REM OCtasificación de Cadena 


Ss 

359e FOR S=1 TO USADO-1 

3395 FOR T=3 TO USADO 

3408 IF 3%1iT2<O5(5)% THEM LET_ U%s= 
Pe y LET 5513) =59B317T): LEFT OIT 
3485 NEXT T 

3410 NEXT =S 

3415 RETURN 


13. Impresión de matrices de cadenas sin espacios directivos 
Números de línea usados: 9420 al 9440 
Nombres de variables usados: U,W,S$ 


Esta rutina le permite imprimir cadenas o matrices de cadenas sin el problema 
de los espacios al final, sobrepasando la pantalla causando un vacío entre dos 
palabras. Para usar la rutina reemplace la matriz de la cadena con el nombre de 
la matriz de la cadena que desea imprimir. W indica qué cadena en la matriz 
hay que imprimir. Así pues, si Vd. tenía DIN S$ (20,20) y quería imprimir S$(8) 
Vd. diría LET W = 8 antes de llamar a la subrutina. 

34208 >REM al dot sin espacios 


al 
el FOR DELEN” 360 TO 1 STEFR - 


3430 IF as Uic<>" “ THEN PRINT 
S5$(Y, TO U): RETURN 

2435 NEXT _U 

3440 RETURN 


14. Hacer un blip 
Números de línea usados: 9445 al 9466 
Nombres de variables usados: Z 


La rutina simplemente facilita un tono de caída descendente, el cual sirve para 
cualquier aplicación que requiera un sonido distinto. -Digamos, cuando Vd. ha 
sido alcanzado por el disparo de un marcianito. 

3445>REM Hacer un Ruidot 

393450 FOR 7-0 TO 2080 STEP 2 

9455 BEEP .021,69-(2+2.53 

94609 NEXT_Z 

3465 RETURN 


15. Conversión decimal a hexadecimal 


Números de línea usados: 9470 al 9505 
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Nombres de variables usados: DEC,NUMERO, H$,N1 


Supongamos que Vd. tiene un número decimal el cual Vd. desea convertir a 
formato hexadecimal para programación en código de máquina. Esta subrutina 
convertirá el valor de DEC en una cadena hexadecimal H$ de forma que el de- 
cimal 16 sería 10 en hex. No existe límite en el tamaño del número DEC (siem- 
pre dentro de los límites aritméticos del Spectrum) mientras sea positivo. Como 
dos dígitos hex generalmente equivalen a un byte en la memoria, esta rutina 
añade un dígito cero al final de manera que la cadena hex H$ resultante pueda 
utilizarse si es necesario con programas cargadores. Esta función se realiza en 
la línea 9500, de forma que Vd. puede omitir ésta si no necesita esta característi- 
ca. Las otras variables son irreales utilizadas para realizar funciones aritméticas 
en el valor del DEC durante la conversión, realmente sin cambiar el valor de 
DEC se guarda a la salida desde la rutina. 

34 7TBG>REM decimat a hexadecimal 

3475 LET det =TMuUxera 

54398 LET ha="" 

2435 LET ni=1NFT idec-i18titf ídecsl 


LET hs=0CHR3S (imi+42+17 AND rs 


IF INT ideri0l<08 THEN LEFT 

INT (dec 168? 02 To nas 
3508 1F INT (LEN hk-r22x2:0LEN hue 
THEN _ LET hgx="""+h%s 


3588 RETURN 
16. Conversión hexadecimal a decimal 
Números de línea usados: 9510 al 9540 
Nombres de variables usados: H$,H, VALOR,DEC 


Esta rutina realiza la función contraria, literalmente convierte una cadena H$ 
hexadecimal a número DEC decimal. El H$ puede tener cualquier longitud tan 
largo como es el número decimal resultante con las capacidades aritméticas del 
Spectrum. Se debe definir H$ antes de invocar a la subrutina, el contenido de 
esta variable queda preservado al salir'de la subrutina y el número decimal apa- 
rece en la variable DEC. 


Los caracteres de la cadena hex deben de consistir en los números del 0 al 9, y 
las letras mayúsculas de la A a la F o las minúsculas de la f (que se interpretan 
tanto en mayúsculas como en minúsculas). 


S5SIG>REM hexadecimal a decimat 
3515 LET valor=1: LET der=8 
35208 FOR h=LEN h% TO 21 STEF -— 
3525 LET der=dec+I(CODE R$th3- - 
(7 AND hE1h3>5>"39")3-(32 AND h$1rk3> 
="3"3)3*evalor 

2556 LET vator=walor*+31€£ 

3535 NEXT kh 

3540 RETURN 
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DISEÑO DE GDU (GRAFICOS 
DEFINIDOS POR EL USUARIO) 
(SPECTRUM DE 16K) 


Este programa le permitirá diseñar los GDUs a su elección y le dirá los valores a 
usar como datos en un programa para activar dichos gráficos. No incluye los 
muchos lujos de muchas versiones elaboradas, pero habiendo usado algunas de 
ellas encuentro que cuando necesito diseñar un caracter para un programa esta 
simple versión es todo lo que necesito. Todos los comandos y opciones disponi- 
bles se muestran en la pantalla todo el tiempo y si Vd. tiene una impresora tiene 
la opción de tener una copia permanente de la visualización en la pantalla in- 
cluyendo un gran tamaño de imagen, igual a lo que es el caracter a tamaño 
normal y los valores de los datos. Esto es un ejemplo de la visualización de 
forma que Vd. puede tener una idea de lo que es el programa. 


CONTROLES E5 
3 Borra el punto 
il Harca el punto 
2 Borra ventana 
=3 Fin 
íBe:30 a Impresora 
3 Izquierda 
3 Abajo 
7? Arriba Eirt 
S Derecha 
DATE 
3 LO] 
E 385 
Ss 46 
A A Ss 24 
hHhitera dad í2 
Ss E) 
5 2 
F s2 


El cuadrado grande es el área de visualización donde aparece el carácter que 
está diseñando. Estudie esta área usando el programa. El cursor (a + símbolo) 
muestra el punto actual del gráfico que puede ser sombreado o al contrario. 
Este cursor puede moverse a la izquierda, hacia abajo, arriba o a la derecha con 
las teclas del cursor 5, 6, 7 y 8 respectivamente. Pulsando la tecla O borrará el 
punto situado bajo el cursor de forma de que si el cursor + estaba en la parte 
superior izquierda de la caja, el punto situado en la parte superior izquierda 
aparecerá en blanco después de pulsar 0 sin tener en cuenta si anteriormente 
era negro o blanco. Por otra parte, pulsando la tecla 1 convertirá el punto en 
negro. Observe que el cursor + es blanco sobre puntos negros, de manera que 
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Vd. siempre puede verlo. Para copias de tamaño ”real” de los gráficos defini- 
dos por el usuario se imprimen tal cual en la parte izquierda de la versión más 
reciente de forma que Vd. puede verlo exactamente cómo es. 


Pulsando la tecla 2,borra la visualización en la pantalla de los gráficos definidos 
por el usuario, reinicializa el cursor a la parte superior izquierda de la caja y 
pone los valores de los datos a O cada uno de ellos. Al pulsar la tecla 3, finalizará 
el programa. Si por cualquier razón quiere recomenzar el programa desde don- 
de se paró (o sea en un error), entonces simplemente pulse CONTINUE. Pul- 
sando la tecla 4, obtendrá una impresión sobre papel (si, naturalmente, tiene la 
impresora ZX conectada), sin el cursor. Una vez haya terminado con el diseño, 
copie los valores de los datos de forma que Vd. pueda incorporarlos en una 
sentencia DATA para los gráficos definidos por el usuario en su programa. Con 
el ejemplo que se muestra, Vd. escribiría después del número de línea 
"DATA 0,96,48,24,12,6,2,32 como un ejemplo para mostrar en qué orden debe- 
rían escribirse los números. Todos los números son decimales. Si Vd. usa el 
BIN para determinar los gráficos definidos por el usuario, Vd. no usaría este 
programa ya que los 1s y Os mostrarían el diseño de los puntos sin la necesidad 
de diseñarlos con anterioridad. A continuación viene el listado del programa: 


1 REM Generador «de Graficos 
14 609 SUA_ 9208 
20 IF INKEYA:<>%" THEM SO TO 28 
236 LET_ IBA=INKHEYS 
30 _ IF 15<"848" O0R 1I$>727 THEN GU 
To 30 
30 PRIMT AT 23UPL 18,4; IMUER=S 
A de 
0 1 Ia="2" 22 Iox="37" THEN 00 
£ Saa 
OD IF Is="2" THEN 60 _5US 1iuea 
Q IF Ió5="2" THEN STOP 
390 1F I5="4” THEN 60 Sua 1582 
188_1F I5>="5" AND 1$:<="2" THEM 
o SUB 229R3 
118 PRINT AT 2+WRAL 19,1,“ ” 
128 60 TO Ru 
508 REM Marcar O borrar 
518 LET OAtCY,CX)=1%H 
_—528 LET DICYI=UAL ("BIHR “+Dsrov 


S38 PORKE USR *“,4"-1+0Y,DIUX) 

S3i PRINT AT 3,15)5C3;Cx 

S5s4a PRINT AT 12307, AG+0X;?  IMUER 
SE UAL DHAIOY,UX); e IMUERSE a; 
S4i PRINT ul 18, 1,' tora rr mi AT 

AT ¡SiS "2 TO 2-1 5MN =y 
FR DICYA) 


E 


S8 


S5% RETURN 

¡e REM Doarrar partatia 

igie FOR A=8 TO 7 

¡028% POKE USR “,4"+ 

1830 LET card aónaOaaa” 

3048 LET DiA+123=u 

1858 PRINT RAT 13+2,17;” a 
¿AT 16,1;' AA Ae tar 13+9,27,"8u 


1956 NEXT _ RA 

107 LET CyY=1l: LET Cx=3 

uña PRINT AT i2+ CY, 1502>02x;, 2“ 

i098% RETURHA 

i5u4vu REM Pasar a Impresora 

Air PRINT AT 12+0Y,159-+0XxX; UUER 
e 

1528 COPY 

AR ¿PRINT AT 1l2a+cYr, iSO+tCA; ÚUUER 


1544 RETURN 

240Y REM Maver Curs 

201 LET OLDUX=CX: Lér aoLbocvY= 
2824 LET CX=0x-(1%="5" AND ox 
+(1$="3” AND _ Cx<3) 

2834 LET CY=OCW-1lIB4=" 7" AMD UCv> 
+(I%$="56" AND CY<S) 

284 _ 1F OLDOEX<>UX OR OLbev«>» ty y 
HEN_ PRINT AT 12+0LOCY, AS+OLDUEX) 
INVUERSE URL DEIOLDoY, ÓLDOXI;” “; 
AT_12+0W,15+€Xx; INVEÑSE At DAIÓO 
YOOX 4" 

20454 RETURN 

30604 REM Iricio 

23010 BRIGHT 4: FLASH 2: IMNUERSE 
2: QUER a 

3028 INK 8: BORDER 7: PAPER 7: UU 


239 FOR A=92 TQ 7: POfE£ US5R “A+ 
3040 Espa "CONTROLES" 


ey 
Il 
13 


3454 PLaT a, 187: DORA 83,4 

36560 PRINT “a Borra el punta” 
23070 PRINT “21 Marca el punta” 
30538 PRINT "2 Borra ventana” 
3020 PRINT "2 Fin” 

3100 PRINT "4 Palts< a Imperezsre” 
3110 PRINT "S Izquierda” 

2120 PRINT "S Abajya” 

3134 PRIMT "7 Arriba”; TAB 19; 81 


1": PLOT 152,85: DRA 23,8% 

32140 PRINT "3 Derecha” 

215% PRINT TAB_17, “Posi43d2ia pay 
a "2: PLOT 216, 73: DRA 31,0 
315% FOR A=8 TO_7; PRIMT TAé 13; 
RA;¡TRB_ 27,;“"Q": NEXT A 

a PLOT 135,72: a 532,8: DRA 
U ¿-535,40: DRÁW -55, Hi DRA u,od 
3188 PRÍNT_ AT 17,3;“"Hitera”: ¡e 
T 65,31: DRA 44308 
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3120 PRINT AT 13,17; “+” 

32040 DIM DS): DIM 013,89) 

3210 FOR A=1 10 3: LET 0%1A)="48e 
ve2000”": NEXT A 

3220 LET CY=1: LET x= 

3234 RETURN 


Cuando entre este listado, por favor, tenga en mente la siguiente información: 


Línea 520: La palabra BIN entre comillas después del VAL es la función 
BIN, no las tres letras B, lI y N. 

Línea 530: Entre comillas después del USR, la A se refiere a la A gráfica. 

Línea 540: Las letras Aesen”A A A A” son cuatro Aes gráficas. 

Línea 1050: Hay 8 espacios en la primera cadena de espacios y 4 Aes gráfi- 
cas en ”A A A A” y el ”0” va seguido por dos espacios. 

Línea 2040: Un espacio. 

Línea 9150: Dos espacios entre los números y el DATA. 
Observe los dos apóstrofes después de las comillas. 


El programa está diseñado como una serie de subrutinas que se invocan desde 
un bucle inicial en el programa. Lo primero que hay que hacer es inicializar el 
programa en la subrutina en la línea 9000. Esto está compuesto de atributos 
permanentes, etc. (9010 al 9020, texto negro sobre fondo blanco), haciendo que 
los gráficos diseñados por el usuario en la tecla A tengan todos los puntos borra- 
dos para acoplar en la caja en blanco al principio. Esto se hace mediante la 
sentencia POKE USR 8 veces en un bucle. 


Las líneas 9040 a la 9140 imprimen las instrucciones. Las sentencias DRAW 
son para subrayar. Las líneas 9150 a la 9180 fijan la caja en la cual Vd. edita su 
carácter. Los números en la parte superior indican a qué bit del punto del byte 
de DATA corresponden. Los números situados al lado indican los bytes de los 
datos para los gráficos definidos por el usuario, o sea, la hilera 0 irá dentro del 
USR ”A” +0, etc. 


La línea 9190 imprime el cursor en su posición de comienzo. La línea 9200 
determina una matriz numérica D() y una matriz de cadena D$(.. El formulario 
maneja los valores de DATA donde la matriz de cadena maneja una versión 
binaria para determinar dónde se deben determinar los puntos individuales. Si 
Vd. quiere imprimir en binario para los usuarios de BIN esta matriz podría im- 
primirse. La línea 9210 pone el 0 en cada elemento del DS() ya que la visualiza- 
ción comienza con todos los puntos ”off”. Las variables en la línea 9220 son CY 
para el cursor la coordenada vertical Y de la pantalla (observe, que no va desde 
la parte superior de la pantalla) y CX para la X en horizontal, otra vez valores 
de X no estándar. Retornando desde la subrutina el programa entre el bucle 
principal en las líneas de la 20 a la 120. La línea $50 imprime un cursor más 
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grande que un símbolo después de la opción escogida. Esto es opcional y puede 
omitirse (en cuyo caso también omite la línea 110,la cual borra el marcador una 
vez que ha terminado la opción,la cual en la mayoría de los casos sólo tarda una 
fracción de un segundo). Las líneas 60 a la 100 seleccionan la subrutina que hay 
que ejecutar. Si añadimos una de sus propias subrutinas o cambiamos este pro- 
grama, tenga cuidado, ya que se toman referencias directas para el carácter I$ en 
otras partes del programa; en particular, el VAL se aplica y el valor usado de- 
termina donde algo está en inverso o no. 


La subrutina de la línea 500 se invoca cuando Vd. pulsa la tecla O o la 1. Actúa 
ennegreciendo o blanqueando un punto. Primeramente, el elemento apropiado 
del Di() es O cuando se blanquea o un 1 cuando se ennegrece. Esto se convierte 
a decimal en la línea 520 aplicando el VAL a una cadena que contiene el BIN y 
una cadena binaria desde el D$(), el resultado se almacena en el elemento 
apropiado de una matriz D() con los datos. El D() se pone al día cada vez que se 
hace un cambio en el GDU. Este valor se POKEa dentro del área de gráficos 
usados por el usuario en la memoria de forma que la A gráfica se convierte en 
una copia de la figura que Vd. está editando. La línea 540 imprime el cursor + 
en la caja de la pantalla y determina donde ha de ser inverso o no desde el 
carácter en el 1$ que Vd. pulsó desde el teclado. También pone al día los valo- 
res de los datos en la pantalla imprimiendo el elemento apropiado del D() en la 
columna a la derecha de la caja de visualización. Observe el uso del LEN STR$ 
para decidir cuántos espacios hay que imprimir para sobreescribir cualquier 
valor que estuviera allí anteriormente. Imagine que el DATA de una hilera 
fuera 127 (o sea, sólo el bit 7 fue enblanquecido), entonces Vd. convirtió en 
blanco el bit 6, que hizo DATA.63 Esto sólo tendría 2 dígitos en lugar de los 
tres anteriores, de forma que no lo sobreescribe completamente y deja el 7 en la 
pantalla dando 637, ¡voila!. La última sentencia PRINT en la línea 540 decide 
cuántos espacios debe imprimir, 2, 1, o ninguno dependiendo de cuantos carac- 
teres tenga el número. Siempre se imprimen tres caracteres. La línea 540 tam- 
bién imprime 4 Aes gráficas. 


La siguiente subrutina en la línea 1000 borra la visualización de los gráficos que 
Vd. determinó y reinicializa las matrices de datos para comenzar los valores 
igual que el cursor y el GDU de A. 


La rutina en la línea 1500 copia el contenido de la pantalla en la impresora ZX. 
Primero se borra el cursor + usando PRINT OVER 1 que, desde que el cursor 
está en inverso en relación con el fondo de la pantalla, convertirá el cursor igual 
que el fondo, así pues, en realidad se borra. El COPY (COPIAR) se usa cuando 
el cursor retorna usando PRINT OVER 1 otra vez. Esta es una aplicación muy 
útil del OVER 1, borrando y repitiendo algo de la pantalla alternativamente 
simplemente imprimiendo lo mismo OVER y OVER otra vez. La subrutina en 
la línea 2000 es una rutina que sirve para mover el cursor usando las teclas del 
cursor de la 5 a la 8. Observe que la línea 2040,como la cadena binaria D$,se usa 
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otra vez con el VAL para determinar donde se imprime algo en inverso o no. 
Inusual, pero ideal para esta aplicación. 


También puede observar que no hay repetición en las teclas, o sea, si Vd. quie- 
re moverse desde un lado de la caja al otro, tiene que pulsar la tecla 8 cada 
vez que quiera moverse un espacio. Esto es debido a la línea 20 que si encuentra 
que se pulsa una tecla espera a que se deje de pulsar. Como el programa funcio- 
na tan rápido, el teclado llega a ser difícil de usar porque el cursor va muy 
rápido. Si Vd. quiere, pruébelo usando una espera en la línea 20, algo así como 
20 FOR A = 1 TO 50: NEXT, con lo cual obtendrá una espera lenta constante. 
No use el PAUSE (PAUSA) ya que éste detendrá el programa después de cada 
presión de tecla y Vd. tendrá que seguir la repetición periódicamente y así 
sucesivamente. 
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GRAFICOS DEFINIDOS POR EL 
USUARIO YA PREPARADOS 


Hay símbolos de gráficos ya prediseñados para que Vd. los use en sus propios 
programas de gráficos, de manera que no pierda el tiempo diseñándolos. Consis- 
ten en gráficos del usuario definidos más comúnmente usados, con los datos 
relevantes para su creación colocados en las sentencias DATA para la lectura 
subsiguiente y POKEarlos dentro del área de memoria de gráficos definidos por 
el usuario. Aunque la numeración de líneas está por orden aleatorio, Vd. la 
cambiará para que se acople a sus programas, los listados del DATA se mues- 
tran tal como aparecerían en la pantalla en un listado de programa para que Vd. 
pueda hacer la entrada de correcciones necesaria. 


Por ejemplo, para determinar el carácter del invasor: 


5000 REM Cargar urafiro en “E” 
5020 RESTORE 

3036 FOR 3=uUS.4 E TO usa ge er 
35040 RERD udy 

5050 POKE a,j,tds 

5060 NEXT a 

350850 REM Listado «de a2i35 
extraidos de otros ejernfios Y 
3cop!lados a este proyrama 

5100 DATA 66,66,3909,125,£0,28,=56, 


55 / 
5110 PRINT "A": REM Grafico E 


Naturalmente, Vd. dejaría las sentencias REM para simplificación. Y esto es 
todo: ¡hágalo y pruébelos!. 


(1) Caracteres del invasor 


invasor 1 


35010 DATA 66,69,126,59,24,38,6£ 
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s5esa DATA 66,36, 189, 165,255,D0,3 
e,231 


25950 DATR 62.,42,62.,28.8,119.65,6 


(2) fracciones 


un cuarto 


3224 DATA $63,72,82,38,74,146,31 
E 
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fi Lad 


2290 DATA 63,72,250,44,566,132,.3,1 


(3) cartas 


5150 DATA 8,28,62,127,62,25.0.0 
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cartas pique 


3178 DATR 16,56,124,254.254.54.1 


e, 


435 Corazones 


a2z1a DATA 24,68,24.20,255.28.24, 
su 
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(4) símbolos de comecocos 


comezocos miranda 3 la derecha 


£Q10 DATR 64, 127,252,240,240.252 
127,60 
comexocos Mirando a la ¡i2qUuierda 


Da 


S5vV DATA 00,254,632,15,15,09,254 
a 


comecocoas mirando hacia arriba 


20830 DATA 66,66,251,231.255,255. 
326,64 
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comecocos mirando hacia 3b39,40 


E 68,126,255,255,231,2312 


.-56, 


290 DATA 56,124,214,214,254,254 
179,178 


/ 


5110 DATR 4,24,608,126,126.20.24 
Y 


] 
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punto de comida 


219% DATA 4,4,0,24.24,0,40.€ 


(5) coches 


coche mirando a La derecltha 


sa18 CATA 4,222,68,255,255,620,2939 


=, 


coche mirando hacia 3ba,j0 


S87e DATR 24, 126,90,24,989B,226,90 
S 


f 
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coche mirando hacias La izquierda 


a DATA 8,118,34,255,255,394,11 
J 


coche mirando hacia arriba 


8858 DATA 24,90,126,98,24,90,126 
.2Q 


(6) avión 


avion 1 


sane PATA 24,24,60,126,255,294,24 


70 


Sa 16,24,156,255,255,156, 


100) 


a3e 
94,1 


ase DATR 60,24,24,255,126,60,24 


Js 


avion + 


SQ7a DATA 6,24,57,255,255,57,24, 
o 
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(7) barco 


barco 


+ DATR 8,24,60,126,8,255,126, 


(8) hombre 


Rombre 


po DATR 56,56,16,123,106,50,659, 


(9) explosión 


EXPLOSION 


mio 
e pz 
E 


328 DATA 145,92,0.1292,2,0,74,13 


yO) 
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(10) naves en ocho direcciones de usos generales, para juegos espaciales, etc. 


120 DATR 24,24,36,3959,06,S€.155S. 


2140 DATA 3,13,58,194,52,20,8,8 


31068 DATA 1982.,.176.78,939.98.72.17 
3,19 


OO 


2138 DATA 232,8,24,52,194,540,15,3 


13 


caNo DATA 195.165,90,66,396,36.24 
== 


3228 DATA 16,16,40,44,57,70,176, 
192 


2244 PRTR 2,123,588, 19%0,1205,30.12, 


-— 
> 


328268 PATA 192,176,76,67,44,483,16 
,»16 
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CLASIFICAR EL SCREENS Y 
EL ATTR 


Un requisito frecuente durante la programación de juegos es revisar el carácter 
en una posición determinada en la pantalla, por ejemplo, detectar colisiones. El 
BASIC del Spectrum tiene la función SCREENS para esta finalidad y funciona 
así. 


La sintaxis es SCREENS$(y,x) la cual retorna una cadena correspondiente al 
carácter de la pantalla en la hilera y) vertical a la pantalla y en la columnaXx a 
través de la misma independientemente de si el carácter es inverso o no. La. y, y 
la x pueden ser números o expresiones numéricas como en una sentencia 
PRINT. Por ejemplo, pruebe este programa: 


18 PRINT AT 3,5; “+»” 
20 PRINT "Et cafacter at 3,5 € 
Ss "¡SCREENS (0,5) 


Puede verse que el inverso no tiene nada que ver con este programa. El 
SCREENS retornará + para un inverso + en la pantalla o un SPACE (ESPA- 
CIO) para un carácter 8 GRAPHICS SHIFT, por ejemplo. 


14 PRINT AT 3,5; IMUERDE 133” 
28 PRINT “Et carácter at 4,5S € 
5 ",5CREENS (94,5) 


Los atributos (colores/destello/brillo) no afectan al SCREENS, sólo los puntos 
que se encuentran actualmente en la pantalla. Aquí hay un ejemplo para de- 
mostrar el uso del SCREENS en juegos gráficos. Vd. tiene el control de una 
nave espacial (inverso V) atravesando el espacio tratando de evitar colisionar 
con las estrellas (asteriscos). Cuando Vd. colisiona, el juego se detiene y apare- 
ce su puntuación. La tecla $ le mueve a la izquierda de la pantalla y la tecla 8 
le mueve hacia la derecha. Cuando la acción sucede Vd. se encuentra en la 
mitad inferior de la pantalla. 


La línea 30 determina cuan lejos dentro de la pantalla comienza su nave, la 
línea 40 incrementa su puntuación y la 50 mantiene el deslizamiento de la pan- 
talla sin que aparezca el mensaje SCROLL de deslizamiento. La línea 60 im- 
prime tres estrellas en la parte interior de la pantalla, entonces borra la posi- 
ción actual de la nave para el deslizamiento. La línea 70 está atenta al teclado 
y determina donde se imprime la nave espacial. La línea 80 busca la nueva 
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posición del carácter usando SCREENS. Si este carácter no es un asterisco 
entonces el juego continúa imprimiendo la nave espacial regresando a la 
línea 40. Si ha habido una colisión se imprime su puntuación y el juego ter- 
mina con su nave destellando para indicar una colisión. 


TU PUNTUACION 1112 *£ É 
É É - E 
E * ES 
* E € 
+ ? 
* E + 
€ 
* E E 
E E + 
E O * + 
Ux E 
E E E 
E É * 
E * E 
E E * 
* FE 
É E + 
* ES * 
E E E 
EX E 
E E + 


1 REM Estrellas 
10 RANDOMIZE 
20 LEFT SEORE=0 
30 LET ATRAUVES=INT  1RNDE:=S2 
50 LET SCORE=SCORE+1 
509 POKE 25692,255: REM DESLIZA 


R 
PRINT AT 21,RNDF=S31; "e" ¡AT 2 

1, ANDES > E" ¿AT 21 ,EN prñ1 E" ¡HT 

10, ATRAVES; “¡HT 21,32" " 

7Ó LET ATRAVES= ATRAVES - LINRKEY SR 
="5" AND ATRAVES?O) -LINKEYE="5" 
AND _ATRAVES<31) 

50 IF SCREENS (10,STROVESI<>"+ 
“" TREN PRINT AT 210,ATRAVES; INUE 
RSE 1;"U": GO TO 49 

39 PRINT AT 9,9: "Ti PUNTAS IO» 
A iS AT 19,ATRAVES:; FLASH 1; 


Lo que no se le ha dicho es que el SCREENS está muy limitado en lo que puede 
reconocer. Sólo revisa aquellos caracteres en el conjunto de caracteres que van 
desde el SPACE al símbolo (O), o CHR$(32) al CHR$(127). Los gráficos defi- 
nidos por el usuario y los gráficos del bloque en las teclas numéricas del teclado 
no son reconocidos, y es una pena ya que estos caracteres son básicamente usa- 
dos en programas gráficos donde el SCREEN$ es de mayor uso. 
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Una forma de resolver este problema es usando ATTR, e imprimir en colores 
diferentes. Así pues, si Vd. tenía un juego donde disparaba misiles contra un 
objeto podía hacer que éste fuera verde, el misil rojo y el lanzador de misiles 
azul, y así sucesivamente. Para verificar si el misil había tocado el objeto debe- 
ría observar si había verde en el cuadrado del carácter hacia donde se dirigía el 
misil, con ATTR. Generalmente esto se hace donde el SCREENf$ no puede 
utilizarse por ninguna razón. Por ejemplo, si el objeto era azul sobre un fondo 
amarillo de brillo normal y no hacía destello, Vd. podría ver la presencia del 
objeto así: 


IF ATTR(Y,X)=49 THEN... 


teniendo en cuenta que el ATTR retorna un número que es (destello * 128) + 
(brillo * 64) + (color PAPER + 8) + (color INK). 


Aquí debería tener en cuenta que si hay algún espacio en blanco en la pantalla 
debería tener un atributo diferente en relación al resto de gráficos en la panta- 
lla. Si el color global era INK (TINTA) azul y los misiles y espacios estaban 
ambos impresos en los colores globales entonces el ATTR no puede distinguir 
entre los espacios y los misiles. Para ello debería especificar un color INK glo- 
bal lo mismo que el color PAPER del fondo antes de borrar la pantalla: 


FLASH 0:BRIGHT 0:INK 6:BORDER 6:PAPER 6:CLS. 


Esto determina los atributos de cualquier punto en blanco en la pantalla a 54 
(la pantalla aparecerá en color amarillo). Vd. no podrá usar el INK amarillo 
sobre PAPER amarillo durante el curso del programa para imprimir gráficos 
porque en la pantalla se imprimirá en colores temporales mientras que todos 
los blancos se harán con colores permanentes. El único problema es que cuan- 
do el programa se detenga Vd. no podrá ver el listado a menos que especifique 
algo así como INK 9:STOP cuando el programa llegue al final. 


A continuación viene el desarrollo del programa de las estrellas que hace uso 
de los gráficos definidos por el usuario y del ATTR para revisar en la pantalla 
las colisiones descritas arriba. Los gráficos son tres Aes gráficas en la línea 70 y 
la B gráfica en las líneas 100 a la 110. La línea 20 determina los atributos globa- 
les a 0,de forma que un área de la pantalla sin nada impreso en ella tiene un 
atributo de O. Las estrellas están impresas en blanco contra espacios negros 
para darles un atributo de algo que no sea 0. O sea, cuando el programa busca 
si una colisión ha sucedido en la línea 100 sólo los espacios vacíos permiten que 
la acción continúe. Si no hay ningún espacio vacío, ha sucedido una colisión. 
Aquí está el listado del programa. 
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Resultado y listado del programa Estrellas 2 


o PARA TON 214 H «+ % 
He E 
xx x ox 
E E 
Xx Xx * 
x xx 
* Xx * 
*x xx 
x*x KA 
XK o XxX 
xXx * 
dé * x qa xx 
x di ze x 
á Rx *x E a 
x x x 
sn * 
dese * 


S 60 S5Ue 1uua 

12 RANDOMIZE 

2a FLASH 4; BRIGHT Y: INR uu: a 
did a qa S* cL3 

3 L cu = 

4 LET ATRAVES=IMT (RMO*32) 

50 LET_SCORE=SCORE+1 _ 

68 POKE 23632,2E95S: REM FESLIZA 


780 PRINT_CINK 7¿AT_ 21,RMNox21;"X 
más 21,RND0x31; “k" ¡AT 21,RAND31; 


e AT 10,ATRANJYES; “ “¡RAT 
do 
20 LET ATRAVES=ATRAVES-11IMKEYS$ 

="5% AND ATRAVESIBI+C1INRKEYB=" 90" 
AND_ATRAVES <31) 

100 IF ATTR 110,ATRAVES!=4 THEM 

PRINT AT 108,RTRAVES; INK 4 “0”: 

GO TO Sa 

110 PRINT AT 8,8, INX ?,"TU Pun 
TURACION "¡S3CONRE;AT 1RM,PATARAVES; 1 
MNK_ 45 FLASH 1, “ki” 

128 INK 39: STOP 
1008 REM Grafico “A” estretía 
1812 FOR A=a TO 1Ss 
10284 READ UD 
1039 POKE USR “A”"+A,UDA 
10408 NEXT A 
1959 DATA 168,58,294,124,55,188,1 
38,8 125,155,982,59,35,35,24,24 
10568 RETURN 
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A veces es posible usar el SCREENS o el ATTR y es necesario escoger cuál de 
los dos usar. En situaciones donde se puede usar tanto el uno como el otro, el 
factor determinante es la velocidad. Pruebe los dos programas siguientes y cro- 
nometre cuánto tardan cada uno de ellos en ejecutarse. 


14 FOR A=1 T90 1ea 
24 LET E AS 12,2) 


38 NEXT 

19 FOR A=1 TO 21908 
20 LET B=ATTR (2,2) 
30 NEXT A 


El que usa SCREENS tarda unos 12 segundos mientras que el del ATTR tarda 
unos Y segundos. Así pues, se ve perfectamente que es más rápido volver a los 
atributos de una posición en la pantalla que retornar el carácter en esa posi- 
ción. Algunas veces Vd. puede encontrarse en la dificultad de encontrar el co- 
lor PAPER o el color INK o de si la posición es brillante o destellante. ATTR 
retorna los atributos de la posición de un carácter como un número del 0 al 255 
que consiste en información para .. cuatro de ellos. Para resolver esto necesi- 
tamos saber cómo los atributos están contenidos en la memoria en el fichero de 
visualización. Este diagrama representa un byte de atributo en la pantalla. 


bit 7 bit 6 


flashing| brillo color PAPER color INK 


bits 0-2 contienen INK en binario 

bits 3-5 contienen PAPER en binario 

bit6 contiene el atributo del BRILLO, siendo 1 si brilla (o 
BRIGHT 1) 

bit7 contiene el atributo del DESTELLO siendo 1 si destella 
(o FLASH 1) 


Para resolver estos atributos individuales necesita un poco de ayuda. Las si- 
guientes funciones definidas (FN) resolverán los atributos del FLASH (EN f), 
el atributo BRIHGT (EN b), el atributo PAPER (EN p) y el atributo INK (FN 
1). Si Vd. sólo va a usar la expresión una sola vez en un programa no hay nin- 
guna necesidad de fijar las 4 llamadas FN; simplemente escriba la expresión 
cuando la necesite. Los números que aparecen son de color, así pues, si el color 
del PAPEL era azul, la función FN p sería el color 1. Los argumentos de las 
funciones x e y son las coordenadas estándard x e y, de forma que para encon- 
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trar el color del PAPER de la parte superior izquierda de la pantalla diríamos 
LET paper = EN p(0,0). x es la columna que va a través de la pantalla y la y es 
el número de la hilera vertical en la pantalla. 


19 DEF FN f(y,x3=1INT  (RTTR ly, 
x).,/1289) 

29_DEF FN b(y,x3I=INT_ (18TTR (lu 
¿X3)J-1INT” (ATTRO (9, x3 1253112085) Es 


30_ DEF FAN pfu,.,xi=XINT  C£QTTR [u 


>X3I-INT_C(ATTR.” (9,x3 543 2584) .,/5) 
40 DEF FN if(y,x3=INT  (ATTR ly, 
x3 -—INT CATTR. (Y ,x21 2015) 


Inevitablemente se hallará en situaciones donde necesite encontrar gráficos de- 
finidos por el usuario en la pantalla y el ATTR no puede utilizarse. 
Realmente es posible hacer que el SCREENS reconozca los gráficos definidos 
una vez que Vd. entienda como el SCREENS funciona. La función SCREEN$ 
recoge un valor desde la variable de un cierto sistema que le permite hallar el 
comienzo del conjunto de caracteres el cual busca el patrón de un punto de 
acoplamiento para el patrón en la pantalla. 


Si cambiamos el valor de la variable en este sistema de forma que el SCREEN$ 
piense que los GDU son los conjuntos de caracteres normales, entonces use una 
simple operación aritmética para obtener el valor correcto de CHR$ (puede 
pensar que el GDU A era CHR$ 32 por el contrario, ya que CHR$ 32 es 
normalmente el primer conjunto de caracteres). 


La variable del sistema en cuestión es 23606/23607 que es una variable de dos 
bytes que contiene un número que es 256 menos que la dirección del comienzo 
del patrón de puntos del conjunto de caracteres. Hay otra variable del sistema 
de dos bytes que es la 23675/23676 que nos dice donde comienzan los gráficos 
definidos por el usuario (exactamente). Así pues, todo lo que necesitamos ha- 
cer es transferir los dos bytes desde la 23673/6 a la 23606/7 restando uno desde el 
byte más alto para la diferencia de 256. 
Lo mejor es escribir esto en forma de subrutina. Esta subrutina cambia el pun- 
tero del conjunto de caracteres a gráficos definidos por el usuario, revisa la 
pantalla, toma el valor del CHR$ y después reinicializa el puntero al conjunto 
de caracteres de la ROM (si Vd. está usando otro conjunto de caracteres tendrá 
que guardar el valor original en una variable). La X es la posición de PRINT a 
través de la pantalla y la Y es la posición PRINT a lo largo de la pantalla. 

5000 POKE_ 23606,PEEK 236575: PORKE 

23607Y,PEER 23676-1 

5010 LET Af=SCREENSK (Y ,X>3 

35020 IF AgS$<>"" THEN LET AF=CHAR E 

(CODE A4+121253 

3059 POKE 23606,0: POKE 23607,£0 

5049 RETURN 
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Con esta rutina, no se reconoce ningún espacio en blanco en la pantalla a menos 
que alguno de los gráficos definidos por el usuario se parezca a un espacio o 
haya algo en la RAM de gráficos definidos por el usuario similar a un espacio. 
Esto es una molestia teniendo en cuenta que los espacios se usan muchísimo, 
después de todo cualquier parte en blanco de la pantalla es un espacio. Hay dos 
formas especiales, O bien definir un GDU como un espacio o añadirlo a la 
rutina así: 

RS LET de IY ,X3: 1F AH% 

“* THEN RETUR 
s0 10 PORKE 33608. PEEXK 23875: POFRE 
23007, PEER 23676 - 1 

3029 LÉT AF=SCREENSA 1i14,X5 

23059 IF A%<>"" THEN LET Atkt=CARS 

¿CODE Af+112)3 

5040 POKE 235505,959: POKE 25£07,659 

35050 RETURN 


Hacer que el SCREENS reconozca los bloques gráficos desde CHR$ 128 a 
CHRS 143 no es tarea fácil. No existe ningún patrón de puntos que pueda crear 
esto ya que están ”calculados” cuando han de imprimirse. Vd. podría determi- 
nar los patrones de puntos en alguna parte y cambiar el puntero del conjunto de 
caracteres para apuntarlos o podría definir un gráfico definido por el usuario 
como el bloque de gráficos y usar esto para revisar el SCREENS. Recuerde que 
aunque hay 16 bloques de gráficos, sólo 8 de ellos necesitan ser revisados ya que 
8 son versiones en inverso de los otros 8 y el SCREENS puede trabajar sobre los 
inversos como muestra esta sentencia (entrada en modo directo o como una 
línea de programa): 


CLS8: PRINT CHR 1453: PRINT SCREENS 
(9,0) ,CODE SCREENS% (0,0) 


El CHR$ 143 es GRAPHICS SHIFT 8 o un bloque de puntos INK (un espacio 
inverso).¡El SCREEN$ reconoce estoicomo lun espaciojordinario.CHR$:32.[Na- 
turalmente, una forma fácil de hacerlo es copiar el conjunto de caracteres 
entero desde la ROM a la RAM y redefinir algunos de los caracteres que el 
SCREENS$ puede reconocer. Generalmente. los caracteres a redefinir suelen 
ser los menos usados, tales como el cuadrado y los corchetes y otros símbolos 
no demasiado utilizados en los listados. 
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LINEAS DE PROGRAMA 
IMBORRABLES 


¿No sería bonito poder insertar una línea como ésta: 
10 REM € Fred Blogg9s 1982 


en su programa sabiendo que no podrá ser editada ni eliminada por otra gente 
que no sea el propio autor? Borrar la línea de arriba es fácil: sólo escriba 10 
seguido de ENTER y la línea desaparece de la forma más normal. Lo que se 
necesita es un método de insertar líneas dentro de un listado, las cuales sean muy 
difíciles, por no decir imposibles, de borrar. La primera parte de la respuesta es 
que si Vd. tiene un listado en el que hay una línea con el número 0, dicha línea 
no se puede borrar de ninguna forma normal ya que generalmente la línea 
número Ú se relaciona con comandos directos (es decir, entrar el comando di- 
recto PRINT sin un número de línea: Vd. obtiene 0 OK 0:1 queriendo decir 
que todo está OK en la primera sentencia de la línea 0). Si Vd. intenta entrar: 


A REM Q Fred Blo99s£ 1982 


le aparecerá un mensaje del BASIC ”Nonsense in BASIC” (sin ningún sentido) 
con el reporte C. Así pues, esto tampoco es válido. 


Lo que debe hacer es entrar una línea con un número normal (10, por ejemplo) 
y entonces cambiar este número por el 0. ¿Difícil?. No demasiado. Esto se hace 
observando los números de línea del programa, seguidos por un REM, enton- 
ces les hace un POKE hasta que consiga lo que quería. Una forma mejor es usar 
la variable NXTLIN del sistema contenida en la 23637/8, la cual contiene la 
dirección del comienzo de la siguiente línea del programa (nota: línea, no sen- 
tencia). El manual del Spectrum nos informa de que cada línea en BASIC co- 
mienza con un número almacenado en dos bytes con el Byte Más Significativo 
(MSB) seguido por el Byte Menos Significativo (LSB). Así pues, la línea 1 sería 
0, 1 y la línea 258 sería 1,2(1*256+2). Entonces, si hacemos un POKE de 0 
dentro de ambos bytes conseguiríamos nuestro objetivo de una línea de progra- 
ma virtualmente no borrable. A continuación verá cómo se hace esto en una 
línea del BASIC: 


1 LET a=PEEK 223827+258 
35833: POKE 3,8: PORKE u+1, 
2 REM UU Fred Bl0339gs 
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Ejecute el programa. Ahora haga un LIST del programa y observe el número 
de la línea cero donde estaba la línea 2 y observe también como los números de 
las líneas no han sido clasificados en correcto orden; la clasificación sólo se hace 
cuando están realmente entrados en el listado — una vez están dentro, están por 
orden y cualquier línea entrada y las siguientes estarán en su lugar correcto. La 
línea 1 no se necesita ya más — bórrela para que otros no la puedan usar. Ahora 
debería tener: 


A REM € Fred Elagos 1882 


Intente borrarla con el EDIT; escríbalo en su número de línea. Parece bastante 
fácil,¿no?. Para borrarla tendrá que volver a repetir otra vez el POKE. Pero si 
se detiene a pensarlo un momento verá que tiene un problema.— Vd. no puede 
usar la variable del sistema NXTLIN otra vez porque la línea O ahora es la 
primera línea del programa - cualquier otra línea entrada será clasificada e irá a 
continuación de la línea 0. El NXTLIN sólo dará la dirección correcta para el 
POKE si lo utilizó antes de la línea que se ha de POKEar — suerte negra. Para 
seguridad le dejaré adivinar cómo borrar la línea 0. Hay varias forrias de hacer 
esto, todas son más o menos parecidas” y no demasiado obvias. No hay precio 
por esto ya que se supone que no debe hacerse. Vd. podría poner todo esto 
dentro de un programa y si Vd. es lo suficientemente hábil, podría poner la 
sentencia del copyright brillante, con flash y color en cada página de un listado 
de manera que pueda apreciarse en cualquier parte. ¡No hay nada más asom- 
broso que un brillante mensaje repartido por toda la pantalla que Vd. está 
seguro que no podrán borrar! 


Si Vd. pretende usarlo muchas veces, podría poner la rutina en la cinta y hacer 
un MERGE dentro de sus programas. Si empezamos desde el principio, po- 
dríamos hacer: 


SAVE”copyright” LINE 1 


lo que sólo le dejaría con la tarea de borrar la línea 1 ya que la instrucción LINE 
hará que el programa comience por sí mismo para crear la línea 0. De forma 
alterna, sólo salve la línea O en la cinta entonces use el MERGE para añadir eso 
como la primera línea del programa. El MERGE contendrá la línea cero. Cuan- 
do cree la línea O del copyright, le sugiero que le dé el PAPER brillo blanco, el 
INK negro, y el FLASH. 


Incidentalmente, el 0 no es lo único divertido del número de línea que le 
puede hacer un POKE. Pruebe POKEar algo como el 50 y el 0 en la línea 1. 
¿Por qué está el cursor antes del número de línea y en la posición errónea?. 
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Realmente es un número de línea mayor que 9999 el cual el interpretador no 
puede decodificar adecuadamente. Para obtener un resultado aún más diverti- 
do, intente POKEar el 64 y el O en la línea 1 — ¿dónde fue el programa?. Cual- 
quier número de línea mayor que el 16383 hace que el programa no pueda ser 
listado ya que el LIST no funciona más allá de la línea 16383. El programa 
todavía está allí pero no puede verse tal como puede comprobar si Vd. vuelve a 
POKEar para dejar las cosas como estaban. 
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”PULSE CUALQUIER TECLA 
PARA CONTINUAR” 


Un requerimiento común consiste en suspender la ejecución de un programa a 
la espera de una respuesta del operador. Un ejemplo sería el de mostrar una 
lista de instrucciones y decirle al operador que pulse cualquier tecla una vez las 
haya leído. El siguiente programa puede servir para ello: 


»o»s..» linstrucciones) 


iuea PRINT "Putsa una tecta esce 
pto Shirt para continuar” 
ga. IF INKEYE="" THEN 20 TQ 141 


Funciona, pero si Vd. pulsa las teclas CAPS SHIFT o SYMBOL SHIFT, el 
programa le ignorará olímpicamente y la gente dirá ”qué programa más tonto, 
he pulsado una tecla y no sigue”. Hay varias formas de solucionar el problema: 


«<coo»tinstrucciones!) 


198a PRINT “Putea una teciías pars 
continuar” 

1010 IF INKEWYÍÓ="" THEM 280 TO 11 

pal 


18eQa PRINT “Puisa ENTER psfas Cors 
tinuar*” 
¡418 IMPUT As 


Incidentalmente, Vd. puede haber observado que los programas usan 
INKEYS$, sin embargo, INKEY$ no responde a las teclas SHIFT cuando se 
pulsan sueltas, sólo reacciona si se pulsan simultáneamente, continuando el 
programa. La pulsación de ambas teclas a la vez (como cuando se entra en el 
modo E), produce un CHR$ 14. 


Los ejemplos de arriba van, pero ¿no sería mucho mejor que realmente pudié- 
semos pulsar CUALQUIER TECLA para continuar?. Cualquier tecla signifi- 
ca, por supuesto, una de las 40 que hay en el teclado del Spectrum, incluyendo 
ambos SHIFTs. He aqui una manera de conseguirlo: 
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1008 PRINT "Puitsa EnHTSr Ps 
tintar” 

181% IF IMREYA="" AND 124 aun 
535 AND IN 2327565=25S THEM a T 
2310 


El teclado está situado en lo que nosotros llamamos espacio 1/O (E/S), signifi- 
cando INPUT/OUTPUT (ENTRADA/SALIDA). Estos son métodos para ob- 
tener información de la entrada y salida del computador desde y hacia el mundo 
exterior. Los zócalos MIC y EAR, el altavoz interno, el teclado, la impresora y 
los microdrives y las interfaces RS232 son todos ejemplos del VO en acción. La 
mayor diferencia entre el direccionamiento de la memoria que el usuario co- 
noce como el PEEK y el POKE es que sólo funcionan con la memoria ya sea 
la RAM o la ROM. Los comandos de 1/O IN (ENTRAR) y OUT (SALIR) son 
los que transmiten información hacia o desde el computador y el mundo ex- 
terior. Hay 65536 de estos ports de I/O, lo mismo que-65536-posiciones de 
memoria hay, pero no todos están en uso, igual que todos los espacios de me- 
moria no se usan en un Spectrum de 16K. 


Hay dos comandos en el BASIC que manejan los ports [/O. Son el IN y el OUT 
que pueden compararse a la forma de trabajar del PEEK y del POKE respecti- 
vamente. Las funciones como el INKEY$ también acceden a los ports 1/O, pero 
hacen uso de los códigos de máquina equivalentes al IN y OUT. La siguiente 
pregunta es cómo Vd. sabe cuál de estos ports son usados para qué. El Capítulo 
23 del manual del Spectrum lo define brevemente, pero de los que realmente 
podemos sacar más partido son los asociados con el teclado, al menos de mo- 
mento. 


Como un ejemplo, usando el OUT, vayamos a jugar con el PORT 254 el cual 
además de otras muchas cosas determina el color BORDER y el altavoz. Esto 
puede demostrarse haciendo un RUN de este corto programa: 


18 QUT_ 254,INT” (RND2502 
24 0 TO 18 


Vd. debería oír un ruido de clinc en el altavo,. del Spectrum y ver como el color 
BORDER de la pantalla se vuelve loco. El color cambia tan deprisa que verá 
los varios colores del BORDER a la vez. Observe que mientras este programa 
se está ejecutando, las dos líneas inferiores de la pantalla no cambian el color 
(generalmente tienen el mismo color que el BORDER). El BORDER se con- 
vierte en el color de la pantalla inferior cuando Vd. escribe algo. Si Vd. entien- 
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de algo de binario, este diagrama de ocho bits del PORT 254 le ayudará a ex- 
plicar cómo el port puede hacer más de una cosa a la vez. Igual que los ports 
1/O de la posición de memoria son bytes de ocho bits. 


128 64 32 valor 
ee ]>]pej]]a] > 


Maneja el Controla Controla 


altavoz del el zócalo el color 


del BORDER 


Spectrum del 


micrófono 


El D0,D1,D2, etc., significan el bit O, bit 1, bit 2, etc. Generalmente la D 
significa DATA, pero ahora esto no debe preocuparnos. Como sólo se usan los 
bits del O al 4, debemos colocar la línea 10 en el anterior programa con: 


19 QUT_ 2=54,INT'" (RMDx32* 
22 60 TO 1 


ya que los bits usados podrían llegar hasta el O (el más bajo) y al 31 (el más 
alto). 


A nosotros nos son más útiles los ports de 1/O que están asociados con el tecla- 
do. Hay ocho ports, cada uno de ellos contiene una hilera de cinco teclas en la 
mitad izquierda o derecha del teclado. Por ejemplo, el PORT 61438 está asocia- 
do con la hilera de cinco teclas, 6 (bit 4), 7 (bit 3), 8 (bit 2), 9 (bit 1) y O (bit 0). 
Pruebe este programa que imprime el valor del port 61438 una y otra vez. Pulse 
las teclas 6 a la O para ver qué efecto tiene. Pulse más de una tecla a la vez. 


18 PRINT IN 62145385 
20 PAUSE 1090 
59 GO TO 10 


Haga un RUN y vea como imprime 255 todo el tiempo, a menos que Vd. pulse 
una de las 5 teclas de la mitad de la hilera del 6 al O en el teclado. Los números 


87 


"Ope/9a] ¡ap o¡pau jep eojao seu e3sa y 11q ¡9 Á esanje arduas 
e]53 ( Yq ¡a ouO9 anasqo ej993 epes uo9 soperdose ue]sa sjiod 
so| ap syq soÁn9 Á opej9a] ¡a u09 soperdose p/| suod soj ap euwerBerg 


ejoa] eun esind as IS GzZ Sp Jae1]sns e sejo¡en 


! E v 8 91 91 8 y E L 
Ys 1yS 
ev [9 [9] [s] [e] E] E] BJ 2] ES] 
! 4 p 8 91 9L 8 y [4 L 
pas] 3] [2] [e] (e]] 00] [2] Es] Es] [+] 
L [4 y 8 9! 91 8 LA z L 
[+] [e] (] lo] 26] E] E] [+ [2] 
! í v 8 91 91 E v c L 
Le] Ls] Le] [e] E>]/£9] [+] [e] E] [o] 


Za 
118 10d 


Y 


991€ 1YOd 


8LZ799 LYOd 


py! 
0916 LEOd 


Cc0S9 Ly8Od 


ZrELS HO 0LSv9 LHOd 


Y 


98y€9 LHUOd 


8€b19.LYOd 


00 


La 


119 LyOd 


88 


obtenidos pueden parecer bastante aleatorios, pero sólo hasta que Vd. com- 
prenda como funciona. Puede haber pensado que 255 es el valor para "ninguna 
tecla pulsagia”. También puede saber que 255 en binario es 11111111. Así pues, 
como los números que obtiene cuando pulsa las teclas son menores que 255, 
¿puede imaginarse que pulsando una tecla convierte uno de estos unos binarios 
en un cero?. 


Estudie este diagrama (p. 88) que muestra los bits de los ports relacionados con 
las teclas correspondientes. En particular, intente estudiar estas teclas que ha 
estado usando como ejemplos, de la 6 al 0. 


Haga un RUN del programa otra vez y cada vez que pulse una tecla, reste a 255 
el número escrito debajo de las teclas del teclado en el diagrama, o sea, si Vd. 
está pulsando el O reste 1 de 255, dándole 254. Si Vd. está pulsando la tecla 8, 
reste 4 de 255, dándole 251, y así sucesivamente. Debería obtener el mismo 
número a medida que el programa escribe en la pantalla. 


Puede que esto no tenga mucho sentido al principio, pero persevere porque 
todo se aclarará a lo largo de este manual. Escrito sobre las teclas en el diagra- 
ma aparecen los símbolos DO al D4 otra vez — éstos representan bits individua- 
les del port 1/O. En esta aplicación sólo los bits del O al 4 se usan para el teclado, 
ya que sólo son cinco los que cada port tiene que revisar. 


Veamos algunos ejemplos para demostrar un simple uso del IN para buscar el 
teclado. 


Para verificar si se ha pulsado la tecla R: 


1F IN 64510=(255-53) THEN PRINT “A 
ES PRESIONADA” 


Para revisar si se ha pulsado la tecla Y: 


IF IN 57342=1255-16) THEN PRINT 
“y ES PRESIONADP” 


Para revisar si se ha pulsado la tecla ESPACIO: 


IF IN _53742=(255-1) THEN PRINT “S 
PACE ES PRESIONADA” 


Naturalmente, Vd. no tiene que escribir la expresión encerrada entre paréntesis 
como en los ejemplos de arriba —han sido escritos para ilustrar el punto que 
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Vd. resta a 255 el valor del bit. Observe que si Vd. añade todos los valores de 
los bits juntos, la respuesta es la misma. En este momento no causa ninguna di- 
ferencia de como lo hace. Ahora es más importante un resultado correcto y en- 
tenderlo. Conviene observar que cualquier bit es sólo un cero si se pulsa la te- 
cla correspondiente. Esto explica por qué obtenemos un valor de 255 si no se 
pulsa nada — todos los bits son 1, de manera que el total en decimal es 255. To- 
memos como ejemplo cuando se pulsa la tecla K. El port I/O asociado con la 
mitad de la hilera de 5 teclas es 49150 (ver diagrama del teclado). Cada byte o 
port tiene ocho bits, así: 


BIT7 BIT6 BITS BIT4 BIT3 BIT2 BIT1 BITO 
1 1 1 1 j 1 1 1 


Lo de arriba nos muestra la mitad de la hilera sin haber pulsado ninguna tecla. 


BIT7 BIT6 BITS BIT4 BIT3 BIT2 BIT1 BITO 
1 1 1 1 1 0 1 l 


Ahora tiene un valor de BIN 11111011 que es (en decimal) (2554) o 251, que 
es también lo mismo que (128+64+32+16+8+2+1). Técnicamente, la forma 
de hacerlo correctamente es añadir los bits individualmente, pero el otro méto- 
do también funciona por razones que no vamos a entrar aquí, y que general- 
mente es más fácil de usar para esta aplicación. Vd. podría hacer lo mismo para 
cualquier otra tecla del teclado. Así: 


IF IN 429156=251 THEN PRINT“R ES 
FRESIDONADA” 


No gana nada respecto a: 


IF INKES=K OR INKEY$=k THEN PRI 
NT“R ES PFRESIONADA” 


Sin embargo, tiene sus ventajas. Por ejemplo, Vd. puede comprobar si algunas 
de las SHIFTSs están pulsadas, cosa que no podría hacer con el INKEY$, o sea: 
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E OR 1N 32766=2573 


El INKEY*$ también distingue entre letras en mayúsculas y minúsculas de ma- 
nera que IF INKEY$ = ”k” THEN... no es lo mismo que IF INKEY$ = ”K” 
THEN... donde IF IN 49150 = 251 THEN... sólo comprueba que se ha pulsado 
la k, tanto si el CAPS LOCK está activado como si no. 


El uso del IN para buscar en el teclado también nos permite revisar si se ha 
pulsado más de una tecla o combinaciones de teclas, es decir: 


=-41 THEN PRINT 


Una aplicación de esto serían los juegos donde las teclas de control del cursor se 
usan para controlar el movimiento en la pantalla en la dirección de las flechas. 
La mayoría de los juegos sólo le permiten moverse a la izquierda, abajo, arriba 
a la derecha, pero nunca en diagonal. Usando el IN podríamos ver si ambas 
teclas la 5 y la 6 están pulsadas para poder hacer el movimiento de a la izquierda 
y abajo, osea, en diagonal en dirección a la parte inferior izquierda de la panta- 
lla de manera que el control del movimiento se pareciese al de un joystick. Pruebe 
este programa para dibujar una línea en dirección hacia arriba y a la derecha 
desde la parte inferior izquierda de la pantalla en dirección a la parte superior 
derecha, algo así como un rasgo. Los controles son el 7 para mover hacia arriba, 
el 8 para mover a la derecha y pulsar el 7 y el 8 para mover en diagonal y a la 
derecha. Esto no nos hubiera parecido tan fácil si hubiéramos usado el INKEY$ 
ya que no habría manera de saber si ambas teclas la 7 y la 8 están pulsadas a la 
vez. 


Mientras que con este método usamos las teclas de cursor 5, 6, 7 y 8 para 
controlar los movimientos de la pantalla, ¿no sería mejor usar otro método que 
fuera más sencillo?. Las razones que se usan comúnmente para esta finalidad 
son que las teclas de dirección están juntas en el teclado y son fáciles de leer con 
INKEYS$ para controlar los valores de las variables (Vd. puede estar familiari- 
zado con el LET X=X+ (INKEY$=”8”)-(INKEY$=>”5”)). El problema es 
que estas teclas están tan cerca unas de otras que se necesita una combinación 
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de dedos muy complicada, para tener el control. El sistema a describir nos per- 
mite el uso de las 40 teclas del teclado para controlar el movimiento, de forma 
que Vd. no tiene que preocuparse demasiado de si sus dedos pulsan las teclas 
adecuadas. El teclado se dividirá en 4 partes (desde el punto de vista del pro- 
grama), cada una de ellas de un bloque de 10 teclas como ésta controlando el 
movimiento en las direcciones que se muestran. 


ARRIBA 


IZQUIERDA DERECHA 


IZQUIERDA DERECHA ENTER 


ESPACIO 


Así pues, pulsando cualquier tecla de la fila de teclas de la parte superior del 
teclado produce el movimiento hacia arriba, pulsando cualquiera de las teclas 
de la hilera de teclas de la parte inferior del teclado, el movimiento es hacia 
abajo. Pulsando las teclas de la mitad izquierda de la hilera del teclado hace que 
se mueva a la izquierda y pulsando la otra mitad de la derecha del teclado, su 
movimiento es a la derecha. Pulsando diferentes grupos de teclas tienen un 
efecto combinado, o sea, si Vd. pulsó la tecla 3 y la tecla W se moverá en 
diagonal desde arriba a la izquierda. El programa que demuestra la rutina con- 
siste en un sencillo dibujador que traza una línea en la dirección que Vd. le 
marca. Si no pulsa ninguna tecla, el trazo permanece quieto, como es de espe- 
rar. No se piense que éste es el mejor programa de dibujo de todos los tiempos 
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(¡se rompe si Vd. se sale de la pantalla!). Vea el diagrama anterior que muestra 
los ports 1/O asociados con el teclado cuando examine las teclas 30 y 40 que son 
las que hacen todo el trabajo de escudriñar el teclado. 


10 LET X=120 

29 LET Y=90 

30 LET X=X+(IN 4915903255 OR I 
ÑN 57342:<>255)1-(IN 6451080<>255 OR 
IN 65022:<>255) 

408 LET Y=Y-(IN 65278:<>255S OR_I 
N 327566:<>255)+(IN S53455<>255 OR 
TIN _51455:<>255) 

So PLOT X,Y 

sa a TO 39 
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IMPRESION DE MATRICES DE 
CADENAS ALFANUMERICAS 


Pruebe este programa: 


60 PRÍNT" CHRS 8.” 

70 DATA "ENERO", FEBRERO” .,' "MAR 
ZO", "ABRIL", “MAYO”, “JUNTO”, "JUL I 
Q"”,"AGODSTO", “SEPTIÉMBR * , “"DCTLUIBR 
E”, "NOVIEMBRE","DICIEMBRE"” 


Lo que debe hacer es asignar los nombres de los meses del año para cada cade- 
na de la matriz (12 meses, longitud máxima de 9 letras — DIM A$(12,9)) e 
imprimirlas de la primera a la última en una hilera, separadas por comas, termi- 
nando con un punto. Así es como deberán aparecer: 


ENERO , FEBRERO ¿MARZO ¿AB 
RIL s MAYO ¿JUNTO , JUL TI 
o ¿AGOSTO , SEPTIEMBR , OCTUBR 


E , NÓU IEMBRE,DICIEMBRE. 


Algunas de las palabras están separadas por varios espacios cuando se impri- 
men porque cada cadena en la matriz A$ siempre tiene la misma longitud (en 
este caso nueve caracteres). Cada vez que Vd. la asigna a uno de los elementos, 
Vd. asigna todos los caracteres de la cadena,aun cuando el computador tiene 
que añadir espacios extra. Por ejemplo, si Vd. está haciendo AS(S)MAYO que 
consiste en sólo cuatro letras, después deben añadirse cinco espacios para com- 
pletar los nueve caracteres. El resultado es la impresión de una serie de espa- 
cios, muy desagradables, que aparecen además de las letras 


(1) Imprima la cadena, buscando hacia atrás para encontrar el final de la pala- 
bra, así: 

10 DIM A$(12,9) 

208 FOR P=1 TÓ 12 


40 REM IMPRI. Y OMIT,. ESPACIOS 

58 FOR B=LEN ASIA) TO 1 STEP -— 

609 IF ASIA,B)<>" ” THEN PRINT 
ASIA, TO B)3","3: GO TO 30 

70 NEXT B 
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80 NEXT_A 

90 PRINT CHAS 8;".' 007 

190 DATA “ENERO”, "FEBRERO", MAR 
ZO", "ABRIL", “MAYO”, "JUNIO", “JUL 
52 fABoSTO":"SERTIÉMBR ">, "ÓCTUBR 
E" “NOVIEMBRE”, "DICIEMBRÉ” 


Este será el resultado de la ejecución del programa: 


ENERO , FEBRERO, MARZO, ABRIL ,MAYO, 
UNIO,JULTO, AGOSTO ¿SEPT IEMBR ,OCTU 
BRE , NOUIEMBRE,DICIEMBRE. 


Todo lo que el programa hace es colocar los nombres de los doce meses dentro 
de la matriz A$(12,9) y la impresión se hace en el bucle FOR-NEXT B, el cual 
funciona hacia atrás desde el último carácter de cada cadena hasta que encuen- 
tra un carácter que no tenga ningún espacio. Entonces lo imprime con el A$S(A 
TO B). Observe la coma. Esta expresión es una abreviatura del A$(1 TO B). 


(2) Use el indicador de Longitud de la Cadena (SLI) para registrar la longitud 
de las palabras en las cadenas de forma que no necesite perder el tiempo bus- 
cando antes de imprimir. Este método también sirve para palabras que finalicen 
con espacios, se impriman correctamente (si asi se desea) ello se muestra en el 
siguiente listado: 


10 DIM P5$(12,10) 
20 FOR A=1 TÓ 12 

20 READ S5 

40 LET asta) =CHRS (LEN S%4+123+5 
58 PRINT AS$(A,2 TO CODE PAFIR)) 


A 

79 PRINT CHRS$ 8;"." 

58 DATA “ENERO”, “FEBRERO”, “MAR 
ZO", "ABRIL". “MAYO”, “JUNIO”, “JUL E 
0", “AGOSTO”, “SEPTIÉMBR! *, “ÓCTUBR 
E" "NOVIEMBRE", "DICIEMBRÉ”" 


Observe que la línea 10 tiene un elemento extra, el 10, que se ha añadido en 
cada cadena de la matriz A$, para almacenar el SLI. El número que representa 
la longitud de la cadena debe de ser un número entre O y 255. Eso debe de 
bastar para la mayoría de aplicaciones. Podrían utilizarse dos bytes si los núme- 
ros más largos llegaran hasta el 65535. El bucle A lee los nombres de los meses 
desde la lista de datos dentro de una variable de cadena común S$. Como las 
variables se alargan según lo necesario, podemos usar el LEN S$ para encon- 
trar la longitud de la palabra y almacenarla en el primer carácter de las cadenas 
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de la matriz A$ como CHR$(LEN S$+1). Este es el elemento extra del que ha- 
blamos anteriormente. El resto de la cadena se hace dentro de una copia del 
S$. Así es como aparecería para el mes de Marzo: 


1 2 3 4 5 6 7 8 9 10 
indicador 
de la longitud 


de la cadena- 
alfanumérica 


A$(3,2 TO CODE A$(3)) 


Así pues, el primer elemento de la cadena A$(3) contiene un carácter 6. La 
longitud de la palabra Marzo tiene 5 letras. Comienza en el segundo elemento y 
termina en el elemento 6. La razón de añadir un 1 a la longitud de Marzo es 
debida a que el SLI es el primer carácter,- por el contrario se colocaría al final 
en el caso de que la cadena asignada fuera demasiadoo larga y sobrepasara el 
SLI. El único problema es que el SLI puede ser mayor que la longitud de las 
cadenas del A$ generando un error de subíndice. Esto podría evitarse añadien- 
do la línea: 


4S IF CODE AS(AJ)>=LEN ASIA) TH 
qe LEFT AS$S(PR,1) =<CHAS (LEN ALA) -1 


Las cadenas se imprimen como PRINT A$(A,2 TO CODE AS$(A)), significan- 
do desde el carácter que sigue al SLI hasta el último que no tiene un espacio. 
Una gran ventaja del método (2) sobre el método (1) es que Vd. puede perfec- 
tamente imprimir finales de palabras con espacios y si quiere copiar cade- 
nas dentro de otras cadenas o simplemente almacenar el SLI para hacerlo más 
rápido. 


Si Vd. quisiera la velocidad y conveniencia 'de los SLI pero sin la pérdida de las 
cadenas, entonces simplemente debe almacenar los SLI en una matriz de cade- 
nas O numéricas. Primero la matriz de cadenas: 


1 REM USO DE ERES EN FILA 
10 DIM AS$(12,9 
20 DIM B5(12) 
30 FOR A=1 TO 12 
4” READ 5% 
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50 LET AS$(D)=S% 
50 LET B5()=CHRS (LEN 359) 
70 PRINT AFIP, TO CODE BA>»IPD1); 


Ed 
am NEXT_ A 
30 PRINT CHR% 3, 

100 DATA "ENERO", "FEBRERO", "MAR 
Se Salosras? ¿HAYOSa “JUNTO”, “JULI 
0", “AGOSTO”, "SE TIÉMBA.” ¿ “ÓCTUBR 
E", "NQUIEMBRE”, DIC TIEMBRÉ" 


Y con una matriz numérica: 


21 REM Uso DE _ MATRIZ NUMERICA 


a 0 
70 PRINT ASIA, TO BIR1,0, 06 


399 PRINT CHRS$ 3; ",." 

100 DATA "ENERD”, “FEBRERO”, "MAR 
ZO", "ABRIL"," MAYO”. “ JUNIO" e UL Z 
a”, "AGOSTO"; "SEPTIÉMBR ” , "ÓCTUBR 
E", "NOUTIEMBRE" , “DICIEMBRÉ" 


Como habrá comprobado, el uso de una matriz numérica es más rápido pero 
gasta más memoria. Nuevamente, esto se convertiría en una rutina para usar 
dentro de los programas. 
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ATRIBUTOS DE LA PANTALLA 
INFERIOR 


Generalmente Vd. no puede cambiar los atributos de la pantalla inferior, ex- 
cepto para el color del PAPER, el cual sigue al color del BORDER. ¿Le agra- 
daría obtener un reporte con el código y cursor en verde?. Se puede hacer. La 
variable del sistema 23624 contiene los atributos utilizados para la pantalla infe- 
rior y el color del BORDER. 


Aquí viene un diagrama para mostrar la función de cada bit de esta variable del 
sistema, llamada BORDER: 


FLASH | BRIGHT 
Color BORDER Color INK 


arte arte , y 
Pp P y PAPER parte de la parte inferior 


inferior | inferior 
de la de la 
pantalla | pantalla 


inferior de de la pantalla 
la pantalla 


Mediante un POKE de diversos valores en esta variable del sistema se puede 
conseguir, por ejemplo, un negro destelleante y una parte baja de la pantalla en 
verde o bien que dicha parte sea blanca pero más brillante que el resto de la 
pantalla, en blanco tambien para las sentencias INPUT, etc. Pruebe los dos que 
siguen con una pantalla blanca (PAPER 7:CLS): 


POKE23624,BIN 10111000 (184) 
POKE?23624,BIN 01111000 (120) 


Este efecto no se puede conseguir normalmente con las sentencias INPUT que 
afecten sólo al mensaje de dichas sentencias. El cambio del color BORDER lo 
afecta; por ejemplo, la instrucción INK de la parte baja de la pantalla (que es 
”automáticamente” 9), revertería en blanco o negro para asegurar el máximo 
contraste, de modo que cualquier cosa que se escriba en la pantalla se pueda leer 
fácilmente. 
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COMO PREVENIR LA 
EJECUCION AUTOMATICA 


Si un programa se ha grabado en la cinta usando la facilidad SAVE ”prog” 
LINE X, ese programa comenzará automáticamente cuando lo cargue otra vez 
en el computador, comenzando desde la línea X. Para evitar que esto ocurra si 
desea hacer un MERGE” asegúrese de que anteriormente no había ningún 
programa en el computador antes de usar el MERGE”” ya que puede obtener 
una combinación de ambos programas. 
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COMO HACER MAS RAPIDOS 
SUS PROGRAMAS 


Hay algunos trucos para ayudarle a conseguir que los programas en BASIC del 
Spectrum corran el máximo posible. El uso de estas técnicas le capacitarán para 
convertir un lento programa gráfico en una versión más aceptable. Desde luego 
que los peores programas son aquellos que están pobremente estructurados. 
Un lío de GOTOSs entremezclados, ¡a menudo ralentizarán su programa tanto 
como si hubiesen unas cuantas sentencias PAUSE!. Lo primero que debe de 
hacer es organizar sus programas, de modo que se puedan identificar bloques 
completos como rutinas separadas. Ello no sólo hace que el programa sea de 
más fácil lectura sino que también es posible el modificar una rutina en particu- 
lar sin alterar el funcionamiento del resto. Así, los programas no perderán tiem- 
po saltando de una parte a otra salvo que sea estrictamente necesario. De a su 
programa una buena estructura. Examine todos los GOTOs no condicionales e 
intente construir el programa mediante una serie de subrutinas que se invoquen 
desde un bloque principal, como por ejemplo: 


106 REM PROGRAMA PRINCIPAL 


4099 STOP 
5000 REM INICIALIZACION 
5908 RETURN 
5904 REM CONJUNTO DE GRAFICOS 
5999 RETUBN 4 
elC. EC. 


Lo que tiene que observar aquí es que cuando el computador busca destinos 
GOTO o GOSUB, comienza por el principio del programa y comprueba los 
números de línea hasta que se encuentra el de destino. Esto significa que si Vd. 
llamó una subrutina al final de un programa largo varias veces durante el curso 
del mismo, tardaría más que si esa subrutina estuviera al comienzo del progra- 
ma. Podemos usar estos programas simples para ilustrarlo: 


PROGRAMA 1 - 9 segundos 
Az=z1 TO 19009 
si 2000 


100 


118 REM 


Es Ga pa Ju ps pod js pas 
010 JN NA 
ODO DO 

5] 

m 

XI 


ú 
[a] 
|" 
La] 
Po) 
dz, 
z 
EC 
PL) 
ya 


PROGRAMA 2 - 7.5 segundos 


10 FOR A=1 TO 1000 
228 GO SUBE S009 
30 NEXT A 
40 STOP 
39000 RETURN 


La ejecución del programa 1 tarda unos 9 segundos comparado con los 7.5 
segundos del programa 2. La razón por la que el programa 1 tarde más es que 
para encontrar la subrutina en la línea 9000 tiene que saltar sobre todas las 
líneas una por una. Observe que el número de línea no tiene ningún efecto 
sobre la velocidad, sólo su posición con el programa. De aquí podemos deducir 
que los programas deben de diseñarse de modo que los GOTOs y GOSUBs más 
comunmente utilizados se posicionen de la siguiente manera: 


1 REM Diseño sugerido del programa 
10 GOTO 1000: REM saltar sobre las subrutinas 
100 REM Subrutinas más frecuentes 
1000 REM programa principal 
8000 REM Subrutinas menos frecuentes. 


Este diseño sólo se usará cuando el tiempo ahorrado sea importante. Como la 
mayoría de estas técnicas que ahorran tiempo sólo se convierten en importantes 
durante los bucles largos. Aquí es donde Vd. va a necesitar más ahorrar tiem- 
po. Ya que estamos hablando de bucles, hay dos tipos principales de bucles que 
realizan una función similar; los bucles FOR/NEXT y los bucles IF... THEN 
GOTO... Comparemos la velocidad de ambos. 
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PROGRAMA 3 - 9 segundos 


10 LET A=1 
20 LET PA=A+1 
30 IF A<=1000 THEN GO TO 20 


PROGRAMA 4 - 4.5 segundos 


19 FOR_a=1 TO 19099 
208 NEXT a 


Así pues, el bucle FOR/NEXT es aproximadamente el doble de rápido que el 
bucle IF... THEN GOTO. Como una comparación interesante, compare el pro- 
grama 4 con el 5, el cual utiliza sentencias múltiples. 


PROGRAMA 5 - 4.5 segundos 


108 FOR a=4 TO 1000: NEXT a 


Observe que al contrario que la mayoría de las versiones del BASIC, el del 
Spectrum no gana mucho tiempo con el uso de sentencias múltiples comparado 
con el mismo programa escrito con una línea individual para cada sentencia. El 
programa 5 se toma aproximadamente el mismo tiempo que el 4. No obstante, 
con las sentencias PRINT, la unión de varias sentencias en una línea puede co- 
rrer más que con líneas separadas. 


PROGRAMA 6 - 45 segundos 


10 FOR A=1 TO 1000 
20 PRINT AT a,a,”" 
30 PRINT AT ¿BOP E" 
39 PRINT AT 04,0; " PAREME" 
50 PRINT_ AT 4,0; "PARECE" 
60 NEXT A 


PROGRAMA 7 - 41 segundos 


10 FOR A=2 TO 1 
20 PRINT PT 4,0; "SIBRECE":pT 4, 
¡"PARBCE";¡AT 0,0; "PARERE";AT 4, 
Aj; “PARECHO"” 
30 NEXT PR 


Cuando Vd. quiere mover la posición PRINT a una nueva línea, el uso del 
apóstrofe en lugar de TAB 0; es más rápido. 
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PROGRAMA 8 - 23 segundos 


10 FOR A=1 TO 308 
20 POKE_23592,255 
50 ro % +"; TAB O; 
40 NEXT 


PROGRAMA 9 - 18 segundos 


1e FOR A=1 TO 30 
20 POKE 2369292,255 
30 PRINT "+” 

40 NEXT A 


La utilización del carácter de control CHR$13 (el carácter ENTER) para pro- 
ducir un retorno de carro en lugar del apóstrofe no produce ningún cambio en 
los tiempos de ejecución. La inclusión de los caracteres de control hacen que las 
cosas vayan más despacio. El programa 10 llena la pantalla con signos + . El 
programa 11 llena la pantalla con signos + inversos, el cual debe entrarse como 
”INV.VIDEO + TRUE VIDEO”. 


PROGRAMA 10 - 4.7 segundos 


106 FOR A=2 To vud 
20 PRINT "4%; 
30 NEXT A 


PROGRAMA 11 -— 5.5 segundos 


10 FOR A=1_ TO 74 
20 PRINT "E"; 
38 NEXT A 


Sin embargo, compare el programa 11 con el 12, el cual usa la característica del 
INVERSE (INVERSO). Este hace que vaya más despacio que cuando se in- 
cluye el carácter de control del video inverso en la cadena. Experiméntelo con 
otros como el FLASH o BRIGHT. 


PROGRAMA 12 — 6.2 segundos 


10 FOR A=1 TO 794 
22 PRINT_INUERSE 1;"+"; 
30 NEXT OR 


Algunas computadoras tienen variables especiales llamadas variables de ente- 


ros, las cuales sólo pueden almacenar números sin decimales. Pueden manejar- 
se mucho más deprisa que las variables de coma flotante normales. En el Spec- 


103 


trum no existen estas variables de enteros, pero tiene una representación espe- 
cial para enteros pequeños, el cual se utiliza automáticamente para números 
que van desde -65535 al +65535 y no tienen decimales. 


PROGRAMA 13 — 11.3 segundos 


S POKE 23692,2585 
16 FOR A=1 TO 600 
20 PRINT A, 

309 NEXT A 


PROGRAMA 14 -— 15.3 segundos 


S POKE_ 23032,2550 

109 FOR A=1.3 TO 609.53 
20 PRINT BA; 

30 NEXT A 


Los programas del 13 al 18 intentan demostrar como usando los enteros pueden 
hacerse programas más rápidos. Vd. no tiene ningún control sobre esta acción 
automática del "entero”, así pues,lo mejor que puede hacer es asegurarse de no 
generar ningún número que no sea entero que hagan las cosas más lentas sin 
que Vd. lo pueda percibir. 


PROGRAMA 15 - 12.1 segundos 


S5S POKE 23692,255 
206 FOR A=1 TO 600 
20 PRINT_ 1.3, 

30 NEXT A 


PROGRAMA 16 - 9.1 segundos 


5 POKE_ 23632,255 
106 FOR A=1 TO 6080 
20 PRINT 1; 

36 NEXT A 


PROGRAMA 17 - 12.3 segundos 


S PORKE 22022,255 
7? LET B=1.3 

14 FOR A=1 TO 60 
20 PRINT B; 

39 NEXT A 


PROGRAMA 18 - 9.2 segundos 


5 POKE_ 25692,255 
? LET B=1 
149 FOR A=1 TO 6080 
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Vd. debería usar enteros donde sea posible ya que pueden imprimirse o ser 
convertidos a otro formato más rápidamente que con números del punto flotan- 
te usuales. Recuerde que en este formato pueden manejarse las constantes y las 
variables. También, la cantidad de deslizamientos de la pantalla que tienen que 
hacerse en los programas de arriba tienen un pequeño efecto en los tiempos de 
ejecución, ya que la parte inferior de la pantalla se alcanza más rápidamente con 
números con más dígitos, y los números del punto flotante tendrán más dígitos 
que las partes del contador de su entero. 


Permanezcamos con impresión en pantalla y veamos la forma de imprimir nú- 
meros en la misma. Los programas 19, 20 y 21 comparan las constantes de la 
cadena de impresión, las constantes numéricas de enteros y constantes numéri- 
cas no enteras. 


PROGRAMA 19 - 9.8 segundos 


S PORKE 23622,255 
10 FOR A=1 TO 1040 
20 PRINT_ "BR"; 

354 NEXT A 


PROGRAMA 20 - 17.2 segundos 


S PORKE 223692,255 
1 FOR A=1 TO 1006 
20 PRINT 63; 

30 NEXT A 


PROGRAMA 21 - 24.8 segundos 


S POKE 23692,255 
ia FOR A=1 TO _ 18080 
20 PRINT 69.25; 

30 NEXT A 


Ahora hagamos lo mismo con las variables. Los programas 22, 23 y 24 impri- 
men las variables de cadena, las variables numéricas de enteros y las variables 
numéricas no enteras respectivamente. 


PROGRAMA 22 - 10.3 segundos 


PORKE 23692,255 
LET Bh5="69" 

FOR A=1 TO 10686 
PRINT_ ES5; 

NEXT A 


A 
6686-40 
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PROGRAMA 23 - 17.9 segundos 


S PORKE 25692,255 
7 LET B=69.25 


PROGRAMA 24 -— 25.2 segundos 
S POKE => ¿255 
18 FOR A=1 TO 10068 


Otra vez, el mensaje es: use las cadenas para imprimir cuando sea posible. Si 
tiene que ser un número, asegúrese de que es un entero y se imprimirá más 
rápidamente. Veamos lo que nos indica el VAL y el CODE en la impresión. 


PROGRAMA 25 - 26.1 segundos 


POKRE_ 23592,255 
FOR A=1 TO J6aa 
PRINT_ VAL "62"; 


ue 
6561 


PROGRAMA 26 - 18.3 segundos 


S PORKE 2535692,255 
10 FOR A=1 TO JZea 
20 PRINT CODE "E"; 
350 NEXT P 


Así pues, cuando desee almacenar información en forma de caracteres en una 
cadena alfanumérica, será mejor decodificarla usando el CODE (CODIGO) en 
lugar del VAL. 


El uso de nombres de variables con múltiples caracteres es más lento que los 
nombres con un solo carácter. 


PROGRAMA 27 - 6.9 segundos 
10 FOR A=1 TO 21060 


2 LET_ M=18 
30 NEXT A 


PROGRAMA 28 -— 7.8 segundos 


10 FOR A=1 TO 1800 
28 LET_ LIBRO=104 
30 NEXT A 
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Primero defina las variables utilizadas más a menudo; el tiempo en encontrar 
una variable en el área de las variables depende de lo lejos que el computador 
tenga que llegar mirando esta área. 


PROGRAMA 29 - 8.4 segundos 


pao 


BO Ds 


TO que 


p 
Le 
F 
m 
pa 
DDIMIMOON 


2 
a] 
Z 
m 
x 
| 
Din 
0 


1912] 


TO les 


ES 

RA 

r 

m 

Da! 
DDITMDODN 
NE JA TU ES 


Dio 


Veamos las sentencias REM. Aunque éstas son ignoradas durante la ejecución 
de un programa, el interpretador del BASIC todavía tiene que pasar por ellas y 
esto tarda una infinidad de tiempo. Aquí o allí una sentencia REM no variará 
demasiado, pero puede tener un efecto notable con un bucle largo. Compare 
el programa 4 con el programa 31: 


PROGRAMA 31 - 5.2 segundos 


10 FOR A=1 TO 1000 
20 REM ES UN REM DE INFORMACIO 


350 NEXT A 


El programa 4, un bucle FOR/NEXT vacío tarda 4.5 segundos para hacer un 
RUN comparado con los 5.2 segundos que tarda con una sentencia REM. Esto 
siempre sucede con los bucles — si puede ponerse fuera del bucle, el computador 
no perderá el tiempo repitiéndolo una y otra vez. 


Veamos varias formas de escribir expresiones que se usan varias veces durante 


un programa. Veremos el ejemplo de LET R=INT(RND*9)+ 1. Primero escri- 
biéndolo entero cada vez que se necesite. 
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PROGRAMA 32 - 13.3 segundos 


106 FOR A=1 TO Sua 
20 LET_ R=INT  (RNID*=3) +1 
384 NEXT A 


O definiendo una función. 
PROGRAMA 33 - 13.9 segundos 


S DEF FN R()=INT (RNDES) +1 
10 FOR A=1 TO 500 

20 LET_ R=FN R() 

590 NEXT A 


O poniendo la expresión en una subrutina. 


PROGRAMA 34 - 14.9 segundos 


10 FOR _A=1 TO 500 

20 GO SUE 50 

3a NEXT A 

40 STOP 

50 LET R=INT (RNAD<9j +1 
60 RETURN 


O poniendo el VAL en una cadena que contiene la expresión. 


PROGRAMA 35 -— 19.6 segundos 


LET RA$="INT_ (RNDx9) +1" 
FOR A=1 TO 5009 

LET_ AVAL A% 

NEXT A 


UN 
56580m 


Ahora Vd. puede ver que es más rápido escribir la expresión completa afuera 
cada vez que se necesita. 


Ahora veamos el ATTR y SCREENS. Si Vd. puede escoger entre SCREENS y 
ATTR para encontrar lo que hay en cualquier posición de la pantalla, es más 
rápido usar el ATTR que el SCREENS$, como lo muestran los programas 36 y 
37. 


PROGRAMA 36 - 9.5 segundos 


20 LET_B 
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PROGRAMA 37 - 12.5 segundos 


10 FOR A=1 70 _ 14 
20 LET Bá= SERENA. (1,1) 
30 NEXT A 
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COMO USAR LAS VARIABLES 
DEL SISTEMA 


Las variables del sistema son bytes en la memoria desde el 23552 al 23732 que 
ayudan al computador a recordar ciertas cosas que necesita saber sobre sí mis- 
mo de como está organizada su memoria. La información está contenida en 
estas variables del sistema en estas direcciones de manera que el computador 
puede mantenerlas y actualizarlas cuando lo necesite. 


Nosotros podemos usar esta información almacenada en estas posiciones de la 
memoria, de varias formas, en algunos programes tanto para leer la informa- 
ción que ya está almacenada allí o cambiándola para que el computador haga 
algo que de otra forma no podría hacer, o algunas veces hacerlo más fácil. 


No todas estas formas nos son útiles. Y verdaderamente no podemos cambiar 
todas ellas. Algunas harán que el computador ”se cuelgue”, o que simplemente 
las ignore. Algunas pueden cambiarse sin ningún problema pero siempre bajo 
ciertas circunstancias solamente y la mayoría con limitaciones muy estrictas. 
Espero poderle facilitar una buena guía de lo que puede hacerse y de lo que no, 
pero Vd. también aprenderá a su tiempo sus propios pequeños PEEKs y PO- 
KEs. 


23552 al 23559 KSTATE lectura del teclado 


Cuando se interrumpe el procesador (generalmente unas 50 veces cada segundo 
en Europa), una de las cosas a hacer es leer el teclado y almacenar los resulta- 
dos allí. Los bytes tienen usos diferentes. Observe que casi todos pueden ser 
utilizados por el programador. Vd. puede usar este programa para examinar lo 
que sucede en los ocho bytes del KSTATE. Ejecútelo y pulse varias teclas para 
ver qué efecto tienen las teclas individuales, como las del SHIFT, y qué efecto 
tiene yendo desde una tecla a otra. 


10 FOR A=23552 TO_ 25559 

20 PORE 253692,0: REM MANTENER 
SCROLL 

Se LET E=PEER A 

44 PRINT_ A;¡TAB 10:B;TAB 20; CHR 
$ E PND E>31 

50 NEXT PR 

ee Go TO la 


Los primeros cuatro bytes del KSTATE tratan con algo llamado ”Sobrepulsa- 
ción de dos teclas” que le permite pulsar una segunda tecla antes de que Vd. 
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salga de la primera. Las descripciones dadas a los cuatro bytes principaies, 
23556 al 23559, también se aplicarán a los primeros cuatro mientras Vd. man- 
tenga en mente que sólo se recuerda la pulsación de dos teclas. El PEEK 23556 
puede retornar el CODE (CODIGO) de la versión de letras en mayúscula de la 
tecla pulsada, de forma que si Vd. pulsó SYMBOL SHIFT A, obtiene el 
CODIGO de ”A” no el CODIGO de ”a” ni de ”STOP”. Esto puede serle útil 
donde sea necesario entrar en letras mayúsculas, etc. El efecto de pulsar una 
tecla es temporal y sólo dura mientras está pulsando. El valor en el 23556 sería 
255 si no se pulsara ninguna tecla en el momento de la interrupción. Para la 
tecla ENTER se retorna un valor de 13. Para la tecla SPACE (ESPACIO) es 
retornado un valor de 32. Pulsando ambas teclas simultáneamente produce el 
14, Este programa se lo demostrará: 


10 LET A25555,5 23586 
30 Do ¿CHAS BEAN A>S31 


El 23557 se usó para prevenir el contacto de una tecla intermitente, etc., cau- 
sando problemas, conocido como ”efecto de rebote”. 


El 23559 contiene el CODE (CODIGO) del último carácter pulsado en el tecla- 
do. Esto depende de si se pulsaron o no las teclas SHIFT. Los números que 
aparecen son los mismos que hubiera producido el PRINT CODE INKEY$ 
excepto que éstos son las últimas teclas pulsadas, no necesariamente la actual 
tecla pulsada. Pruebe este programa para visualizar lo que sucede. Ejecútelo e 
intente pulsar varias teclas haciendo el uso de las teclas SHIFT. 


El 23558 controla el tiempo que pasa desde que se pulsa una tecla hasta que 
empieza la autorepetición. Cada 50 unidades es un segundo. 


19 LET ASPEER 23559 

20 POKE 2369 

30 PRINT A, AAA A AND A>31 
48 G0 TO 10 


Vea también los FLAGS del 23611. 
23560 LASTK Tecla pulsada más Recientemente 
Cada vez que se rastrea el teclado y se encuentra una tecla pulsada cuyo valor se 


ha comprobado como válido, se actualiza esta variable del sistema. Su conteni- 
do es el CODE de la última tecla pulsada. 
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Verdaderamente no hace mucho más de lo que hace con el INKEY$ excepto 
que se podría usar para escribir directamente un carácter. Si Vd. prueba este 
programa, verá que si pulsa una tecla, la tecla se indica en la pantalla en un 
breve momento a pesar de que el programa puede que no tenga más de la línea 
50 cuando Vd. pulsó la tecla. El CODE de la última tecla pulsada queda alma- 
cenado aquí y permanece aquí hasta que no se pulsa otra tecla. Es posible 
verificar una nueva tecla pulsada examinando el bit 5 de la variable del sistema 
FLAGS 23611. Sería 1 para una tecla pulsada. 


E "PRESIONE UNA TECLA A 
20 FOR _A=1 TO 9304 
39 NEXT A 
44 CLS 
50 LET A=PEERKR_ 23568 
60 PRINT A: 1F A>51 THEN PRINT 
CHAR A 


Esto podría utilizarse para verificar una situación de tipo s/n (sí o no) — si 
Vd. sabía que iba a aparecer una podría indicar su respuesta antes de que el 
programa llegara allí y el programa respondería cuando así lo hiciera. También, 
si dos teclas fueron pulsadas simultáneamente el programa respondería si una se 
dejara de pulsar sin tener que esperar el teclado que la dejara completamente. 


Los caracteres de control pueden generarse usando CAPS SHIFT en conjun- 
ción con las teclas de números. El ENTER retorna 13. Pulsando ambas teclas 
SHIFT a la vez retorna 14. Para ver esto, pruebe este programa: 


10 LET A=PEEK 23560 
28 PRINT A,CHR%S A AND A>31 
350 GO TO 10 


23561 REPDEL Repetición de Espera 


Esta variable del sistema contiene espacio de tiempo que una tecla debe mante- 
nerse pulsada antes de que comience a autorepetirse. El tiempo de espera en 
Europa es de una quinceava parte de un segundo y comienza en 35/50 de un 
segundo. Por ejemplo, Vd. puede perfectamente POKEar esto si Vd. quiere 
que la tecla comience la repetición inmediatamente. Los cursores son más difí- 
ciles para controlar si Vd. dice POKE 23561,1. Efectivamente, el POKE 
23561,0 desactiva la auto—repetición, dando un tiempo de espera de alrededor 
de unos 5 segundos como el POKE 23561,255. 
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23562 REPPER tiempo de espera entre repeticiones 


Esta variable del sistema controla el espacio de tiempo entre las repeticiones 
una vez que el sistema de autorepetición ha comenzado. En Europa el tiempo 
es de la quinceava parte de un segundo. Si Vd. verdaderamente quiere desacti- 
var la autorepetición por cualquier razón, el POKE 23562,0 o el POKE 
23562,255 da unos 5 segundos entre las repeticiones. Si Vd. quiere editar líneas 
de un programa muy largo (es decir, una larga sentencia PRINT) entonces el 
POKE 23652,1 moverá el cursor al lugar adecuado. Pero procure no cambiar el 
23561 demasiadas veces al mismo tiempo porque puede perder el control del 
cursor. El valor normal es 5/50 de un segundo o una décima parte de un segun- 
do. 


23563/4 DEFADD 


Dirección del argumento de una función definida por el usuario en un progra- 
ma, o sea, si Vd. tenía DEF FN A(B) en la línea del programa, el valor en 
23563/4 será la dirección de la letra B entre paréntesis en esa línea mientras se 
use sólo la función. La mejor forma de hacer un PEEK dentro del 23563/4 para 
mostrar esto es poner el PEEK como parte del EN para ser evaluado como allí 
es siempre O a menos que la función esté siendo evaluada. Así pues, la línea: 


10 PRINT PEEK 23563+2556*PEER 2 
3554 


siempre retornará un 0. Por otro lado: 


10 DEF FN A(B)=PEEK 235659+256%+ 
PEER 23564 
20 PRINT FN R(999) 


retornará la dirección de la B en la línea 10. El 999 no es significante, tan sólo 
algo que da un valor a la B para evitar un error. En el caso de una función sin 
argumento: 


10 DEF FN A()=PEER 23563+256*P 
EEK 23564 
20 PRINT FN ACI 


imprimirá la dirección del símbolo del paréntesis que cierra ). 
23568 a 23605 STRMS 
Los primeros catorce bytes en un Spectrum básico contienen las direcciones 


relacionadas a los canales y corrientes. Las corrientes —3 a la +3 se almacenan 
en dos bytes cada una de ellas. 
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23606/7 CHARS 

Esta variable del sistema tiene como valores normales: 
23606 contiene 0 

23607 contiene 60 


Esta variable del sistema puntea al comienzo del conjunto de caracteres que el 
computador usa para imprimir en la pantalla y en la impresora. El SCREENS 
también usa esta variable del sistema. La dirección normal que se puntea es la 
15360, la cual es 256 menos que la dirección del comienzo del conjunto de 
caracteres de la ROM. 256 menos porque el generador de caracteres se accede 
mediante algo similar al PEEK 23606 + 256 * PEEK 23607 + CODE” A ”*8 y 
ya que el primer carácter es ESPACIO, el CODIGO del ESPACIO es 32, y 
8*32 es 256. El generador de caracteres tiene 768 bytes de longitud, de forma 
que si Vd. quiere fijar un nuevo conjunto de caracteres debe colocar este núme- 
ro de bytes en el caso de que sea sobregrabado por el BASIC -el sistema no se 
puede ”colgar” pero lo que aparezca en la pantalla será totalmente ilegible—. Ya 
se había mencionado el SCREENS usando esta variable del sistema, de hecho, 
Vd. puede saber que el SCREENS generalmente no reconoce los gráficos defi- 
nidos por el usuario, a menos que sean similares a un carácter existente del 
Spectrum. De hecho, el SCREENS funciona recogiendo las direcciones del co- 
mienzo del generador de caracteres observando la tabla hasta que encuentra un 
carácter de acoplo. Ahora como el Spectrum es un mapeado de bits en lugar de 
un mapa de la memoria como algunos computadores, todo lo que se imprima en 
la pantalla permanece igual aunque Vd. cambie los caracteres en la memoria. 
Así pues, temporalmente podríamos cambiar el puntero al conjunto de caracte- 
res para puntear a los gráficos definidos por el usuario y observar allí. Un pro- 
blema puede ser que a pesar de que hay una variable del sistema que nos dice 
donde comienzan los gráficos definidos por el usuario, esta dirección no es 256 
menos. Así que debemos restar 256. Esto significa que restamos uno del byte 
más alto. Este programa se lo mostrará: 


16 FOR X=144 TO 164 

20 PRINT_ AT 06,0:CHR% X 

350 POKE 253606,PEEK 23675 

40 POKE _23607,PEEK 23676-1 

S0 PRINT AT 20,0;SCREENS$ (QA, Al 
50 PAUSE 40 

7Q PORKE 23606, 

50 POKE 25607,648 

20 NEXT Xx 


Lo que hicimos es hacer pensar al computador que los gráficos definidos por el 
usuario era el conjunto de caracteres normales. El SCREENS todavía produci- 
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rá caracteres con el CODIGO del 32 al 127. Ya que el SCREENS comienza con 
el CHR$32 y los UDGs comienzan en el 144, necesitaríamos añadir 112 para 
retornar los caracteres en el rango de los gráficos definidos por el usuario. Aquí 
hay una forma de hacerlo. La X es la coordenada x que va a través de la pantalla 
y la Y es la coordenada y que va a lo largo de la pantalla de la posición que el 
SCREENS debe examinar. Si allí el SCREEN$ no encuentra ninguno de los 
caracteres normales, entonces retorna si se encuentra uno. El carácter en Y,X 
aparece como A$. La línca 8025 sólo se necesita si está usando un conjunto de 
caracteres que no sea de la ROM. Si Vd. está usando el conjunto de caracteres 
de la ROM, entonces borre la línea 8025 y reemplace las líneas 8070 y 8080 con 
las versiones alternativas que vienen a continuación. 


A REM PANTALLA PARA CREPRR GRA 
5010 LET AS=S5CREENKS (Y,X) 

3020 IF_Ag$<>"" THEN RETURN 
Sn dl A=SPEER 253605: LET B=PEE 
3e3a PÓKE 253508,PEEKR 236785 

35040 PORKE 23607, ¡PEER 3 Gill 1 
5050 LET P%= SCREENS (Y, 

50560 _1F Agz:<>"" THEN Me A$=CHAS 
(CODE Ays+112) 

5070 POKE 23606,A 

5080 POKE 2360807, 

3090 RETURN 


50709 POKE 23606.,0 
89589 POKE 23607,60 


Pero la historia no termina aquí. Solamente hay 21 gráficos definidos por el 
usuario. Si SCREEN$. no encaja con ninguno de ellos, continuará buscando 
después de los gráficos definidos por el usuario hasta que haya terminado de 
buscar entre los rangos 32 al 127 que piensa que está buscando. Esto sería 
bastante embarazoso si solamente fueran algunos datos almacenados sobre los 
UDGs por la sola razón que reensamblara cualquier carácter. Para ayudarle a 
evitar esto, aunque los UGDs generalmente se encuentran en la parte superior 
de la RAM, se podría añadir esto: 


5065 IF AS>CHRS 164 THEN LET As= 


Incidentalmente, debería asegurarse de que 23606/7 siempre puntea al conjunto 
de caracteres correcto cuando haga un PRINT o un LIST, etc., esto es lo que se 
puede hacer para el correcto uso de la variable del sistema. Realmente es una 
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de las subrutinas de arriba sin la reinicialización del puntero CHARS. ¿Verdad 
que esto no se puede leer muy bien?. 


23608 RASP 


Controla la duración del sonido que suena, de forma que Vd. sepa que no le 
queda ya memoria. Cuando lo activa, tiene el valor de 64. Esto puede cambiar- 
se, pero existe un pequeño problema. El POKE 23608,0 nos da un clic muy 
corto en lugar de un sonido, especialmente si Vd. odia esos sonidos que satírica- 
mente le sacan de quicio cuando está ejecutando fuera de la memoria. Alterna- 
tivamente, el POKE 23608,255 nos da un sonido muy largo que inmoviliza el 
teclado, evitando así que Vd. pueda escribir mientras dura el sonido. 


23609 PIP 


Controla la longitud del clic que se percibe cuando se pulsa una tecla en un 
modo de comando o durante un INPUT. Lo reemprende en el O pero puede 
cambiarse. Cualquier valor entre el 30 y el 130 nos da un sonido mucho más 
agradable y audible que el que percibimos con el clic. Los valores mayores de 
130 ofrecen un sonido mucho más bajo, ya que computa los stops cuando suena 
el bip. Generalmente, el que se debe usar es el POKE 23609,100 


23610 ERR NR 


Controla el número del reporte de un error y generalmente tiene un valor de 
255 a menos que aparezca un error, cuando contiene uno menos que los códigos 
del reporte del error, o sea, para el error 4, no hay memoria, contendría el 3. El 
mensaje que se imprime está contenido al principo de la ROM en la dirección 
decimal 5010. El final del mensaje se reconoce por el último carácter del men- 
saje que tiene el bit 7 fijado a 1. Después de los mensajes de error aparece (C) 
1982 Sinclair Research Ltd., mensaje que deberá ver después de activar o ha- 


116 


cer un NEW. Vd. puede hacer un POKE 23610 para generar un error para de- 
tener el programa, pero como el mensaje es fijo y está en la ROM, puede aca- 
bar con un rebase de capacidad en la memoria. Si quisiera simular un error de 
no hay memoria terminaría el programa con un POKE 23610,3. Esto funcio- 
naría como cualquier línea de programa, debería asegurarse de que fuera la 
última línea igual que aparece una condición para terminar un programa, sólo 
entonces el 23610 se trata como datos para determinar lo que está impreso. 


23611 FLAGS (Señalizadores) 


La variable de este sistema contiene varios flags que controlan el sistema del 
BASIC y generalmente no deben ser POKEados. Sin embargo, a algunos de 
estos flags se les puede hacer un PEEK. 


BITO: Siendo 1 indica que no se imprime ningún espacio antes de la siguiente 
palabra clave. 


BITI: Siendo 1 para indicar la impresión que se ha de enviar a la impresora. 0 
significa enviarlo a la pantalla de TV. 


BITS: Cualquier tecla pulsada se indica por su CODE siendo almacenado en el 
23560 (la variable del sistema LASTK) y el bit 5 del 23611 (FLAGS) se determi- 
na para indicar que se ha pulsado una nueva tecla. 


BIT7: Sintaxis del flag. 


Todo esto le será de más utilidad al programador del BASIC cuando use las ru- 
tinas de la ROM en un programa en código de máquina. 


23613/4 ERR-SP 


Guarda las pistas de la dirección de la pila de la máquina donde residen los 
datos que retornan adecuadamente. Intente llamar a unos cuantos GOSUBs sin 
acoplar ningún RETURN y vea lo que sucede en la memoria. Ahora Vd. puede 
ver lo que sucede y por qué cuando se encuentra sin memoria en una situación 
como ésta. Intente también POKEar el contenido de las tres direcciones, la 
base por la cual está punteado por el 23613/4, para ver en qué consisten los 
datos de retorno. 


10 LET A=PEEK 23613+2563PEEK == 
4 


361 
20 PRINT PEER ATAB 1080;PEEK A 
+1)¿TAB 20;PEEK (A+2) a 
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23617 MODE 


Especifica el cursor. El 0.1,2. o 4 para el modo L/C, modo E, modo G o modo 
K respectivamente. El POKE de la variable de este sistema afectará la aparien- 
cia del cursor. Puede aparecer como una letra destellante, número, símbolo o 
incluso una palabra clave. Esto es más aparente durante una sentencia INPUT. 
El valor se reinicializa cuando se necesita, o sea, un cambio de modo desde el 
teclado. Pero si Vd. se encuentra en dificultades, pulse ambas teclas SHIFT 
para el modo E y después haga lo mismo para regresar al modo L/C. Pruebe 
este programa, el cual POKEa todos los valores posibles dentro del 23617. La 
mayoría son variantes de los cuatro cursores, es decir, se encontrará a Vd. 
mismo en un modo particular después del POKE, como por ejemplo, que todo 
aparece como gráficos así como en el modo G. El modo L/C, el 255, ofrecerá el 
símbolo destellante para puntearle donde está escribiendo... 


FOR A=0 TO 255 
PRINT_A 
POKE_23617,A 
INPUT As 

NEXT A 


de una 
058609 


23618/9 NEWPPC y 23620 NSPPC 


El 23618 es la variable de un sistema de dos bytes que contiene el número de 
línea a donde tiene que dirigirse. El 23618 contiene el byte más inferior del 
número de línea y el 23619 el más alto, de forma que el número de línea se lee 
como PEEK23618+256K23619. Para POKEar un número de línea, por ejem- 
plo, la línea X: 


POKE23618, X — 256 * INT (X/256) 

POKE23619,INT (X/256) 

Ahora pasamos a ver la variable de sistema 23620. Con la 23618/9 y la 23620 
podríamos realmente simular un GOTO a una sentencia con una línea de pro- 


grama que nunca sería necesaria. Los GOTOs no pueden acceder a sentencias 
individuales con líneas de programa largas. 


Para saltar a la línea 4 de una sentencia X, primero pasemos por los apartados 
arriba mencionados, entonces haga un POKE 23620,4 y se ejecuta el salto. 
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23624 BORDCR 


Los bits de la variable del sistema controlan los atributos de la pantalla inferior 
y el color del BORDER de la forma siguiente: 


FLASH |BRIGHT 


Color BORDER Color ¡INK 


parte parte y PAPER parte 
inferior | inferior inferior de 

de la de la la pantalla 
pantalla | pantalla 


de la parte inferior 
de la pantalla 


Haciendo varios POKEs de los valores de la variable dentro de este sistema 
podría efectuar una multicolor y destellante pantalla inferior, o hacer que tanto 
el PAPER como el INK sean del mismo color para evitar que otra gente pueda 
introducirse en sus programas. Cualquier alteración debería hacerse ciegamen- 
te. O podría hacer que los INPUTs resultaran muy brillantes para resaltar. 


23629/30 DEST 


La dirección de la variable cuando es asignada. Si la variable se ha fijado antes, 
punteará al comienzo donde fue almacenada en el área de las variables. Si fuera 
el caso de que se definiera por primera vez, puntearía a la dirección del comien- 
zo del nombre de la variable en el programa, es decir, en 10 LET A = 5 puntea- 
ría a la dirección de la letra A. También puede utilizarse para encontrar la 
dirección de la memoria de una variable numérica, si Vd. usa algo así como 
LETA=A: 


23631/2 CHANS 


Almacena la dirección de donde comienza el área de información del canal. 


23633/4 CHURCHL 


Dirección de la información INPUT/OUTPUT usada en ese momento. Gene- 
ralmente puntea durante la operación de un INPUT/OUTPUT a un bloque de 5 
bytes en el área de información del canal. Use esto para examinar dos conteni- 
dos. 
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1 FOR X=8 TO 3: PRINT RXx;PEERK 
23633+256FPEER 23634: NEXT Xx: P 
RUSE 8: STOP 


23627/8 VARS 


Puntea al comienzo del almacén de las variables. Aparte de encontrarle el cami- 
no dentro del área de las variables, puede encontrar la longitud del programa 
BASIC con esta expresión. Esto incluye la pantalla, las variables del sistema, 
stacks y variables. 


LET BYTES=PEER 253627 Ta 235 


*PEEK 
282-PEER 235635-2556*PEER 23636 


23635/6 PROG 


Dirección del comienzo del área en la memoria donde el programa BASIC 
está almacenado. Puntea el primer byte del número de línea de la primera línea 
del programa. Puede ser útil si está convirtiendo los programas para otros com- 
putadores Sinclair con la información contenida como una sentencia REM en la 
primera línea de un programa. Véalo arriba también bajo el VARS. 


Si quiere una línea de "seguridad” en un programa, mediante esta variable de 
sistema puede POKEar un cero en ambos bytes del número de la línea al co- 
mienzo de un programa. Las líneas del programa empiezan con un número de 
línea de dos bytes. 


23637/8 NXTLIN 


Dirección del comienzo de la siguiente línea de programa. Podría utilizar ésta 
para poder acceder al código de máquina almacenado junto con las sentencias 
REM en cualquier parte del programa, o sea, las que están grabadas con el 
MERGE desde una librería de subrutinas de una cinta. Tendrían sus propias 
llamadas para el código de máquina como esto: 


308e LET A=USR (PEEK 236537+256*+P 
EER 235638745) 

9q10 REM CODIGO MAQUINA 

3020 RETURN 


Una nota a añadir a esto es que no debería incluir ningún color, flash, brillo, 
etc., caracteres de control dentro de una sentencia REM o podrían ser inter- 
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pretados como códigos de máquina. Sin embargo, si proceden de una librería 
de subrutinas, generalmente esto no se utilizaría. 


23639/40 DATADD 


Contiene la dirección de la coma que termina el último elemento de DATA. Si 
nada se leyera de la lista (o sea, después de un RUN, etc.). la dirección conteni- 
da en la 23639/40 es la dirección de los bytes antes del área del programa, 
normalmente el CHR$ 128 al final del área de información del canal. Para 
demostrarlo ejecute este programa: 


10 DATA e a, les E e "nr 
20 LET A=PEÉR 23639+256+PEEK pd 


LE] 
30 PRINT A¡TAB 9¡PEEK A¡TAB 15 
diia PEEKR_A AND PEER PA>31 


58 GO TO da 


23754 128 
23763 44 , 
23767 44 ; 
23771 dd p 
23775 4d , 
23779 13 


La dirección en estas variables de sistemas de dos bytes pueden puntear al 
carácter ENTER o al punto y coma indicando el final de la línea o la sentencia 
que contiene los DATA. La dirección del terminador del último elemento de 
datos. 


23641/2 E LINE 


Esta variable de sistema puntea el comienzo del área sobre las variables. De 
aquí podemos tener una idea de cuánta memoria se usa en bytes para la panta- 
lla, variables de sistema, programa y variables una vez el programa ha sido 
ejecutado para determinar las variables, etc. Escriba lo siguiente como un co- 
mando directo: 


PRINT PEEK 23641+2556xPEEK 23642- 
16394 


También podemos saber cuánto espacio se usa para las variables una vez se ha 
ejecutado el programa para fijar las variables. Use el comando: 
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BPRINT PEEK 2364 1+256PEEK 23642- 
PEEK 23627-256*+PEEK 23625 


23653/4 STKEND 


Esta variable de sistema contiene la dirección donde comienza la memoria de 
reserva. Leyendo esto llegamos a la conclusión de cuánta memoria nos queda 
sustrayéndola del RAMTOP. Esto no incluirá la memoria ya utilizada para los 
stacks de la máquina/GOSUB, pero incluye la longitud de la sentencia PEEK. 
Así pues, esto solamente es una breve guía aunque está muy bien adecuada 
para la mayoría de las circunstancias. 


PRINT_PEEK AAA 23731- 
PEEK 25553-255*PEEK 2365 


23658 FLAGS 2 


Esta variable de sistema contiene varios flags usados (generalmente) por el 
computador para indicar ciertas condiciones. 


El mejor uso que podemos hacer de esto es hacer uso del flag indicado por el bit 
3. El l indica si está activado o no el CAPS LOCK. 


¿Qué uso es éste?, Consideremos en un programa el uso del INKEY?$, es decir, 
en un menú de opciones en un programa para llenar, a menudo necesitamos 
saber si el operador está pulsando cierta tecla. Si al operador se le ha invitado a 
contestar Y para Sí o N para No él o ella debe pulsar y para SÍ o n para No — 
mezcla las letras minúsculas con las mayúsculas. En la mayoría de los casos esto 
depende de si el CAPS LOCK está o no activado; pero a la mayoría de la gente 
no le importa si está en mayúsculas o minúsculas— cuando pulsan y o Y esperan 
que el computador comprenda que es lo mismo la y que la Y. Pero el computa- 
dor no lo llega a apreciar. Así pues, si activamos el CAPS LOCK automática- 
mente, no debemos preocuparnos más ya que tenemos un programa el cual no 
tiene que revisar (siempre que le concierna) las dos opciones separadas para 
cada opción. 


Resulta tentador usar la sentencia en BASIC POKE23658,8 para activar el 
CAPS LOCK y la POKE23658,0 para desactivarlo. Pero esto afectará a los 
otros flags, así que primero verifique su primer estado a menos que sepa que no 
tienen ningún valor en particular. Normalmente en el modo L, la 23658 tiene un 
valor de 0, así que generalmente está bien usar los POKESs de arriba. El resulta- 
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do no es que vaya a romper algo,pero sí que obtendrá unos efectos muy diverti- 
dos. Cuando el buffer de la impresora esté vacío el bit 1 será cero. 


23659 DF SZ 


Esta variable de sistema contiene el número de líneas en la sección inferior de la 
pantalla, generalmente utilizada por los INPUTs, reportes de error, etc. Nor- 
malmente sería un 2, excepto cuando en la pantalla aparece un mensaje INPUT 
demasiado largo, etc. Si se hace un POKE de un valor de O para intentar borrar 
esa parte de la pantalla, que no se usa con tanta frecuencia, de manera que 
podemos usar las 24 líneas de la pantalla, el computador se queda ”colgado”. 
Sin embargo se puede hacer con algunas restricciones. Estas son que debemos 
asegurarnos que la parte inferior de la pantalla vuelve a su estado normal antes 
de utilizarla para algo como esto — así que ROMPER un programa será algo así 
como ¡catastrófico!. También los errores que se han generado a lo largo de un 
programa tendrán el mismo efecto ya que el reporte del error se imprimirá en 
la pantalla. A continuación viene un breve listado para demostrar el uso de la 
línea 22 y 23 en la pantalla. Desafortunadamente, sólo funciona con las ins- 
trucciones PRINT o PRINT TAB ya que no podemos usar el PLOT aquí y el 
PRINT AT sólo funciona en la línea 22. La pantalla vuelve a su estado normal 
con el POKE23659,2 junto con el programa. 


10 POKE 23659,0 
20 FOR A=0 TO 23 


5 PRUSE Q 
560 POKE 23659,2 


Para demostrar lo que puede ir mal generaremos un error añadiendo esta línea 
al programa: 


45 PRINT ERROR 


¡Caramba! Si Vd. quiere imprimir en las dos líneas inferiores es mucho mejor 
usar el PRINTA1;”texto” que funciona si no igual de bien mucho mejor, sin el 
riesgo de dejar colgado” el sistema. Si Vd. hace un POKE de un valor más alto 
que 2 dentro del DF SZ la pantalla superior se convertirá en más pequeña de lo 
normal. Así pues, después de un POKE23569, Y la pantalla superior será de 24 
hileras Y, y se deslizará cuando la posición PRINT alcance o sobrepase las 24 
hileras Y,0. Este programa muestra como puede mantenerse el deslizamiento 
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de una parte de la pantalla con el DF SZ y el SCR CT. Aquí aparecen números 
aleatorios y sólo deslizan hacia arriba 14 líneas. 


10 POKE_23692,0: POKE 23559,10 
20 PRINT RND 
30 G0 TO 109 


23670/1 SEED 


Cuando se usa la función RANDOM (número), el número (una constante O 
una variable) se almacena en esta variable de sistema. Este es el número que 
determina el siguiente número aleatorio. Abre la posibilidad de engañarle ya 
que Vd. trabajaría sobre el siguiente (presuntamente) número aleatorio gene- 
rado y usaría el conocimiento obtenido “balanceando” la suerte a su favor. Por 
ejemplo, después de hacer un RANDOM 1 el siguiente valor del RND sería 
0.0022735596 o INT (RND*6) + 1 para simular al tirar un dado sería 1. 


23672/3/4 FRAMES 


Es un contador de cuadros que puede utilizarse como temporizador. Cuenta los 
cuadros de una TV, de forma que en el Reino Unido se incrementa cincuenta 
veces por segundo, o cada 0.02 segundos, aunque el tiempo que tarda en leer y 
evaluar estos tres bytes del temporizador puede que no le permita ser utilizado 
con esta precisión. Tiene un rango temporizador de unos 4 días (alrededor de 
unos 3 días y 21 3/4 horas). El manual (capítulo 18) precisa que Vd. necesita 
leer el valor de estos tres bytes dos veces y sucesivamente tomar el valor más 
alto para mayor precisión debido a la posibilidad de que los valores de los tres 
cambien mientras se están leyendo y causen grandes imprecisiones. 


Debe precisarse también que los bytes del temporizador están en orden opuesto 
al que Vd. esperaba. El byte más significante es el 23674, de forma que los 
valores del temporizador están listos: 


6S5S3I6*+PEERK 238 74+256xPEERK 23573+ 
PEEK 23672 


el cual retorna en unidades de cincuenta de un segundo. Existen varias cosas 
que afectan la precisión de este temporizador. Usando el BEEP detiene el tem- 
porizador. Usando la impresora y cargar/salvar, etc., también afectan a su pre- 
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cisión. Sin embargo, el uso de PAUSE está bien ya que sólo espera un determi- 
nado tiempo sin reinicializar o detener el temporizador. 


23675/6 UDG 


La dirección del comienzo de los patrones de puntos para los gráficos definidos 
por el usuario es generalmente 32600 en un Spectrum de 16K o de 65368 en un 
Spectrum de 48K. Este número es el mismo que USR”a”, de forma que impri- 
mir USR”a” corresponde a: 


PRINT PEEK23675 + 256 * PEEK23676 


Los ”POKEadores compulsivos” pueden divertirse bastante con éste. El ma- 
nual sugiere cambiar esto para tener más espacio teniendo menos gráficos defi- 
nidos por el usuario. Sin embargo, también es posible hacer lo contrario, deter- 
minar más de un gráfico definido por el usuario aunque un solo conjunto de 21 
puede estar en uso a la vez. Recuerde que desde que hay 21 UDGs es necesario 
determinar aparte 21*8 o 168 bytes para cada conjunto separado de UDGs y 
hacer un POKE del comienzo de las direcciones, dentro de la 23675/6, del 
conjunto de caracteres en uso. 


Para divertirse, escriba los siguientes comandos: 
POKE23675,96: POKE23676,127 (Spectrum de 16K) 
POKE23675,96: POKE23676,255 (Spectrum de 48K) 


Entonces usando los gráficos definidos por el usuario (normalmente aparecen 
en mayúsculas hasta que son redefinidos) intente escribir un mensaje. Le dejo 
para que descubra Vd. solo lo que sucede... 


Un consejo útil: una vez ha determinado el conjunto de caracteres definidos por 
el usuario puede hacer un SAVE en la cinta. La mayoría de la gente escribiría 
algo así: 


SAVE ”caracteres”CODE32600,168 


Bien, pero Vd. tiene que especificar el comienzo de las direcciones. Vd. podría 
usar SAVE ”caracteres” CODE(PEEK23675+256*PEEK23676), 168 y salvar el 
actual conjunto de UDGs en la cinta sin saber dónde comienzan las direcciones. 
Por ejemplo, esto le permitiría hacer un LOAD del conjunto de caracteres 
salvados desde un Spectrum de 16K a un Spectrum de 48K sin conocer las di- 
recciones. Para obtener otra vez el conjunto de caracteres en su lugar correcto 
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en una máquina con diferentes cantidades de memoria simplemente use LOAD 
”caracteres” CODE(PEEK 23675 + 256*PEEK23676),168. Esto haría relo- 
calizar los datos automáticamente en la dirección correcta para la máquina que 
se usa en ese momento. Esto es lo mismo que LOAD ”caracteres” CODE 
USR”a” que salva un bit de escritura aunque pueda parecer un bit algo extraño. 


23679 P POSN 


Contiene información de hasta donde abarca el buffer de impresión del 
LPRINT de la impresora. Contiene (33 — número de la columna) para las co- 
lumnas de la 0 a la 31. Vd. no puede cambiar la posición LPRINT haciendo un 
POKE de esto sólo. 


23680 PRCC 


Contiene el byte inferior de la dirección donde va a ir el siguiente carácter 
dentro del buffer de la impresora, o sea, contendrá (23296 + LPRINT número 
de la columna), siendo O para la columna izquierda de la impresora, 15 para la 
columna 15ava, etc. Como esto es la dirección de la hilera superior de puntos de 
cada carácter al que Vd. puede hacer un POKE para cambiar la posición del 
buffer LPRINT, cambie el valor en P POSN (23679) para el acoplamiento. 
Incluso puede parecer que funciona si Vd. no hace esto pero se encontrará con 
problemas al final de la línea. 


23681 VARIABLE DE SISTEMA NO USADA 


Esta variable de sistema, aunque estrictamente hablando no se usa, general- 
mente contiene 91. Este es el byte más alto de la dirección del buffer LPRINT 
(91 * 256 es 23296 donde comienza el buffer). Puede hacer un POKE para su 
propio uso pero si usa la impresora lo volverá a escribir otra vez a 91.23680/1 
que junto contiene la dirección de la posición LPRIN'T en el buffer de la impre- 
sora. No causará ningún efecto en la impresora si Vd. hace un POKE 23681 
pero nada de lo que hay aquí almacenado puede ser sobreescrito por las rutinas 
de la impresora. 


23677/8 COORDS 


23677 es la variable del sistema que contiene las coordenadas X del último 
punto dibujado. Después del CLS se reemprende en el 0 y el 23678 es la varia- 
ble del sistema que contiene la coordenada Y del último punto dibujado. Con- 
tiene el valor actual, de forma que si el último punto dibujado era 3,3 ambos 
bytes contendrán 3. 
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Estos dos pueden ser POKEados con las coordenadas válidas X e Y respectiva- 
mente. Como este POKE no dibuja nada en la pantalla, es una forma conve- 
niente de mover el cursor PLOT. Podría hacerse con el PLOT OVER 
1;X, Y:PLOT OVER1;X,Y pero el resultado sería nefasto. Entre otras cosas 
simularía el movimiento que se puede encontrar en cualquier otro BASIC. Es 
útil si quiere dibujar líneas desde un determinado punto. 


23684/5 DF CC 


Dirección en el fichero de visualización de la posición PRINT. Podría utilizarse 
un POKE para enviar el resultado del PRINT en algún otro lugar pero para ello 
necesita conocer más la forma en que se organiza un fichero. 


23688/9 SPOSN 


La 23688 contiene la información concerniente a saber cuán lejos ha llegado la 
posición PRINT en la pantalla. Se reemprende como 33 para el lado izquierdo 
de la pantalla y desciende uno por uno cada vez que la posición PRINT se 
mueve un lugar a la derecha. Después de usar PRINT AT Y,X; (si Y y X son 
coordenadas de PRINT AT válidas) el 23688 contendría 33 — X. Esto sería útil 
cuando intentara evitar que las palabras quedaran cortadas por la mitad cuando 
se imprimieran en la pantalla. Si Vd. se imagina el número 23688 descontándolo 
a cero y no hubiera más espacio en la línea, puede ver esto comparado con la 
longitud de la palabra a imprimirse nos daría una idea de cuándo sería necesario 
móvernos a una nueva línea para evitar cortar las palabras. Supongamos que la 
palabra a imprimir fuera W$: 


IF PEEK236828<LEN Us+21 THEN PRINT 


Esto sólo funciona para las palabras con menos de 32 caracteres de longitud. El 
23689 contiene la información relacionada con la distancia que ha de llegar la 
posición PRINT a lo largo de la pantalla. Se reemprende en la línea 24 de la 
parte superior de la pantalla y desciende uno por uno cada vez que la posición 
PRINT se mueve un carácter hacia abajo. Si no quiere que la visualización en la 
pantalla se deslice o que se borrase cuando la posición PRINT alcanzara la 
parte inferior de la pantalla, pruebe esto: 


IF PEER 23689=3 THEN CL3 


23692 SCR CT 


Contiene cuantos deslizamientos se llevarán a cabo + 1 antes de esperar el 
deslizamiento para poder visualizar la pantalla. En los juegos de gráficos, espe- 
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cialmente, no tiene ningún sentido ya que uno no está interesado en esperar 
para ver. Así pues, si el número 23692 es todo menos un 1 la espera no sucede. 
Entonces, ¿el POKE23692,255 nos dará las 255 líneas de impresión antes de 
que la máquina espera con el deslizamiento?. El POKE 23692,0 parece tener un 
efecto similar excepto que Vd. tiene una línea de más impresión. Si necesita 
más, y la impresión se hace con un bucle será necesario incluir también la sen- 
tencia POKE en el bucle. Se pierde tiempo pero es necesario. 


23693 ATTR P 


Contiene atributos permanentes, o los atributos en efecto globalmente 
(FLASH, BRIGHT, PAPER, INK). Los colores locales en las sentencias 
PRINT, etc., tienen que ver con algo más. Observe que la mayoría de las ruti- 
nas ROM usan los valores de la variable del sistema que manejan los atributos 
temporalmente a menos que se especifique un parámetro local. Sin embargo, el 
CLS borra la pantalla de los colores, etc., en el ATTR P. Las funciones de los 
bits individuales son las siguientes: 


Je Jas Jo] 


BIT 7 es 1 para FLASH 1. 


Color PAPER 
en binario 


Color INK en binario 


BIT 7 es 0 para FLASH 0. 

BIT 6 es 1 para BRIGHT 1. 

BIT 6 es ( para BRIGHT 0. 

Los bits 5, 4 y 3 contienen el color del PAPER en binario, es decir, para 
PAPER 7 bits 5, 4 y 3 sería 111. 

Los bits 2, 1 y O contienen el color INK en binario, o sea, para 
INK3, los bits 2, 1 y O sería 011. 


Los atributos del 8 o 9 no tienen ninguna relación aquí. Si los atributos perma- 
nentes son el 8 o 9 entonces si los almacena en la 23693 no es válido. 
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23694 MASK P 


Esta es la variable del sistema que ayuda al Spectrum a determinar los atributos 
de cualquier cosa impresa cuando se especifica un parámetro de 8. Así pues, si 
Vd. especificó BRIGHT 8 globalmente, el bit 6 de la 23694 se determinará a 1 
para recordar al computador en el futuro que BRIGHT 8 ha sido especificado. 
Para determinar cuándo imprime el color, destello y brillo, el computador mira 
lo que ya tiene allí e imprime la palabra en ese color, etc. O si Vd. prefiere, 
solamente sobreimprime el carácter en la pantalla y deja los atributos solos. 
Esto es lo que hace cada bit: 


popa] 


FLASH [BRIGHT PAPER color 8 INK color 8 ? 
8 8 


Bit 7 es 1 cuando FLASH 8 está en efecto. 

Bit 6 es 1 cuando BRIGHT 8 está en efecto. 

Los bits 5, 4 y 3 son normalmente todos 1 cuando PAPER 8 está en efecto, pero 
mire abajo. 

Los bits 2, 1-y O son normalmente todos 1 cuando INK 8 está en efecto, pero 
mire abajo. 


Cuando hay más de un bit a considerar, como el INK o PAPER, entonces 
solamente el conjunto de bits tienen sus atributos de bits tomados de la panta- 
lla. Esto puede acarrearle algunos efectos inesperados. Pruebe esto: 


10 INK_3 
20 PORKE 223694,BIN Ppe0Rd02a11 
30 PRINT AT Q,0; INK 5;”"5553555 


40 PRINT AT 0,0;"1111” 


Como el INK 8 está especificado, Vd. espera que se impriman los unos en color 
como los cinco, pero no. En lugar de revisar los atributos INK como un todo, lo 
que hace es revisar sólo el conjunto de bits en la 23694, donde estaban los bits O 
y 1. Intente de adivinar en qué color se imprimirán los unos. ¡Diviértase un 
poco!. 


23695 ATTR T 


Esta variable del sistema contiene el color temporal tal como fue determinado 
por las sentencias locales junto con las sentencias PRINT. 
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Esto lo podría ver Vd. mismo con estos dos comandos directos: 
PRINT PEEK23695 
PRINT INK7;PAPERO0;PEEK23695 


O sea, incluye el PEEK en una sentencia PRINT bajo el efecto de los controles 
del color local. Normalmente, y a menos que las sentencias del color local sean 
especificadas, esta variable del sistema contendrá los valores del color global. 
Los colores, etc., que se van a usar para imprimir en la pantalla son tomados de 
estas variables temporales del sistema y las cosas quedan equilibradas de modo 
que el ATTR T sólo es diferente del ATTR P si hay atributos locales de colores. 
Esta es la función de los bits individuales: . 


7 Ys Ys] 9] 0] 


Color PAPER temporal 


Color INK temporal 


23696 MASK T 


Esta es muy parecida al MASK P (variable del sistema 23694) excepto que los 
parámetros aquí son temporales. Normalmente sucede igual con los parámetros 
8 permanentes, aunque esto cambia con los colores 8 locales, etc. están en 
efecto. Podría estudiar esto con algo así: 


PRINT PEER 229695, INK_8;PEERK 2369 
5, INK 0;FLASH 8; PEEK 25696 


Los bits individuales tienen las siguientes funciones: 


BRIGHT | 


8 tem- PAPER 8 temporal INK 8 temporal 
poral 


23697 P FLAG 


Esta variable del sistema contiene, como Vd. puede adivinar por el nombre, 
flags usados durante la impresión. Después de haber especificado el PAPER 9, 
los bits 6 y 7 se fijan a 1. Después de haber especificado el INK 9, los bits 4 y 5 
se fijan a 1. Después de haber especificado el INVERSE 1, los bits 2 y 3 se fijan 
a 1. Después de haber especificado el OVER 1, los bits O y 1 se fijan a 1. Los 
efectos son globales si los bits impares (bits 1, 3, 5 y 7) se fijan a 1 y tempo- 
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ralmente si los bits pares (bits O, 2, 4 y 6) se fijan a 1, tal como muestra este 
diagrama: 


global temporal 
INK 9 INK 9 


Estos tres bytes en la variable de sistema no son normalmente usados por el 
Spectrum; los puede usar como ”variables de usuario” para utilizar en sus 
propios programas a los que acceder información. Son particularmente útiles en 
rutinas en código de máquina donde Vd. simplemente puede acceder a la infor- 
mación mediante la dirección más que buscando la variable en el área de és- 
tas. La 23728/9 es para usar para interrupciones no enmascarables pero esto 
no sucede con el Spectrum. 


global 
INVERS 1 


temporal 
INVERS 1 


temporal 
OVER 1 


global 
PAPER 9 


temporal 
PAPER 9 


23681,23728/9 


23730/1 RAMTOP 


Esta variable del sistema de dos bytes apunta al último byte de la RAM del área 
del sistema del BASIC. Observe que esta dirección no es el final de la memoria 
usada por el BASIC, en el sentido de que los gráficos definidos por el usuario 
normalmente están escondidos tras esta dirección. Si Vd. mueve el RAMTOP 
hacia arriba por encima del comienzo de los gráficos definidos por el usuario 
pueden éstos quedar sobregrabados, pero Vd. gana unos cuantos valiosos 
bytes que les serán útiles a los usuarios de la máquina de 16K. 


Una cosa importante es que el NEW sólo opera mientras la dirección esté con- 
tenida en la 23730/1 de manera que Vd. pueda almacenar los datos sobre esto, lo 
cual puede pasarse entre los programas cargados dentro del computador. Lo 
mismo sucede si Vd. quiere preservar las rutinas en código de máquina, etc. 


23732/3 P RAMT 


Esta contiene la dirección de donde la RAM termina en el Spectrum. Si Vd. 
posee un Spectrum cuya capacidad de memoria desconoce, entonces no necesi- 
ta buscar en el interior para ver si es un modelo expandido o no, tan sólo entre 
la expresión: 


PRINT PEEK23732+256*PEEK23733 — 16384 


Los bytes 16384 sustraidos son para la ROM ya que la RAM comienza en la 
dirección 16384 y va hasta la dirección contenida en la P RAMT. 
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EL DISEÑO DE LA MEMORIA 
DEL SPECTRUM 


Generalmente el Spectrum consiste de 16K de Memoria Sólo para Lectura 
(ROM) y de 16K de RAM (Memoria de Acceso Aleatorio) o 48K de RAM, 
como se muestra en el diagrama: 


Dirección 0 


16K de ROM 


16384 
16K de RAM 


32768 


32K extras 
de RAM en 


un Spectrum 


expandido 


65535 


La ROM de 16K contiene las instrucciones, datos, etc., que el Spectrum necesi- 
ta para ejecutar los programas, ejecutar las instrucciones suministradas por el 
usuario, manejar la impresora, grabador de cinta, etc. Esta área consiste de 
16384 bytes (0 a 16383). Después de esto hay otros 16384 bytes de la RAM y 
otros 32768 bytes de la RAM en el Spectrum expandido a 48K. 


La diferencia principal entre la ROM y la RAM es que los contenidos de la 
ROM son fijos y no pueden ser alterados y así permanecen aún cuando se 
desconecta la corriente. Los contenidos de la RAM pueden ser alterados bas- 
tante fácilmente, y naturalmente, los contenidos se pierden cuando no hay co- 
rriente. La RAM se divide en muchas secciones como muestra este diagrama: 
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Dirección Area de Memoria Cómo encontrar una 


16384 Fichero de Pantalla 
Atributos de Pantalla 
Buffer de la Impresora 


dirección de frontera si no está fijada. 


Variables del Sistema 


Mapas del Microdrive (si 
23734 
está conectado) 


CHANS Información del Canal PEEK23631 + 256*PEEK23632 
CHR$128 


PROG Programa BASIC PEEK23635 + 256*PEEK23636 


Area de almacenamiento 
VARS : PEEK23627 + 256*PEEK23628 
de las Variables 
CHR$128 


E LINE Comando o línea modificado PEEK23641 + 256*PEEK23642 
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CHR$13 


CHR$128 


WORKSP Datos del INPUT 


CHR$13 


Area de trabajo temporal 
a continuación del 


marcador CHR$ 13 


STKBOT Stack del calculador 


STKEND Reserva de memoria 


Stack de la máquina usado 


Esda por el microprocesador Z88/ 


(no accesible desde el BASIC) « 


Puntero 


del stack 


Stack de los GOSUBs 


RAMTOP CHR$62 


Gráficos definidos 


por el usuario 


PEEK23649 + 256*PEEK23650 


PEEK23651 + 256*PEEK23652 


PEEK 23653 + 256*PEEK23654 


PEEK23730 + 256*PEEK23731 


PEEK23675 +256*PEKK23676 


PEEK23732 +256*PEEK23733 


Hagamos un breve repaso a estas secciones una por una donde sea de interés. 


(1) Fichero de pantalla Dirección 16384 a la 22527 

Es la copia del cuadro de la pantalla de la televisión que reside en la memoria 
del computador. Para cada punto en la pantalla tanto en la parte superior co- 
mo en la parte inferior (256*192), existe un bit de acoplo en esta área. Consis- 
te en 6144 bytes, los cuales tienen un diseño bastante curioso a primera vista 
tal como explica el manual. Si un punto en la pantalla se fija al color INK en- 
tonces el bit relevante se fija a 1 en el fichero de pantalla. Esta corto programa 
le dará una idea del diseño del fichero de pantalla. 


10 FOR A=16384 TO 22527 
20 POXRE R,255 
30 NEXT A 


(2) Fichero de atributos Dirección 22528 a la 23295 

Esta área de la memoria contiene información sobre los efectos de los colores, 
brillo y flashing en la pantalla. Si Vd. considera que el espacio de un carácter en 
la pantalla ocupa una casilla de 8 por 8 puntos entonces los puntos en esa casilla 
sólo tendrán un color INK y un color PAPER porque todos sus atributos vienen 
del mismo lugar. Los atributos operan en la misma rejilla como lo hace la rutina 
PRINT. Esta es la razón por la cual Vd. no puede tener un extraterrestre ver- 
de con los ojos de color magenta sobre un fondo negro u otro color. Un byte 
de ocho bits en el área de los atributos contiene la información para el 
FLASH, BRIGHT, PAPER, e INK para la posición de un carácter en la panta- 
lla. Hay 768 bytes de atributos (32*34) incluidas las dos líneas inferiores de la 
pantalla utilizadas para los INPUT:s, etc. Estos bytes de atributos se almace- 
nan en el siguiente orden: la primera línea de 32 bytes para la primera línea 
de 32 caracteres de la pantalla, la segunda línea de 32 bytes de atributos para 
la segunda línea de 32 caracteres a través de la pantalla, y así sucesivamente. 
Este corto programa se lo mostrará: 


38 TO 23295 


Se usan tres bits para PAPER, tres bits para INK, un bit para FLASH, y un bit 
para BRIGHT. Todos son almacenados en binario, así pues, un solo bit da 0 o 1 
y tres bits dan 0 a 7. Debe tener en cuenta que los parámetros 8 o 9 (o sea 
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FLASH8 o PAPER9) no son almacenados aquí; solamente el resultado después 
de que el computador ha decidido si el INK9 será rojo o blanco. Esto es lo que 
cada bit significa en un byte de atributo: 


apa ape 


FLASH [BRIGHT color PAPER color INK 


(3) Buffer de la impresora Dirección 23296 a la 23551 

Información sobre los caracteres que esperan ser enviados a la impresora. Con- 
siste en 256 bytes o 32 por 8, de forma que los gráficos puedan ser enviados a la 
impresora. El actual patrón de puntos que aparecerá en el papel de la impresora 
está almacenado aquí. 


(4) Las variables del sistema Dirección 23552 a la 23734 

Bytes conteniendo la información relacionada a varios factores sobre la opera- 
ción del computador, donde varias secciones de la memoria como los gráficos 
definidos por el usuario, variables, etc. comienzan y terminan. Todos ellos tie- 
nen un nombre, pero el computador no los reconocerá, ya que es sólo para el 
beneficio de los programadores. Estos nombres son SCR-CT, VARS, etc. 


(5) Maps de los microdrives 

Esta área contiene la información relacionada con los microdrives cuando están 
conectados. Si los microdrives no están conectados, no hay nada allí y el punte- 
ro de la siguiente variable del sistema CHANS apunta al 23734, En el momento 
de escribir este libro no había más información disponible. 


(6) Canal de información 

En un Spectrun estandar de 16K o 48K sin ningún otro accesorio (excepto una 
impresora, la cual no afecta para nada a los contenidos de esta área), hay deta- 
lles de 4 canales INPUT/OUTPUT en esta área. Estos se refieren a la informa- 
ción que se recibe y envía, es decir, cualquier cosa escrita en el teclado aparece 
en la parte inferior de la pantalla, y las direcciones de las rutinas que manejan 
las operaciones INPUT/OUTPUT para ese canal. 
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El área comienza en la dirección almacenada en la variable del sistema 
CHANS23631/2 y termina en la dirección contenida en la variable del sistema 
PROG23635/6 menos una con un byte que contiene el CHR$ 128 que significa 
el final del área de información del canal. En términos de bytes en el Spectrum 
de 16K o de 48K (sin importar si está o no conectado a la impresora) el área es 
de 21 bytes de largo desde la 23734 a la 23754. Los números contenidos en esta 
área son los siguientes. Ellos residen en una tabla de 4 por $ figuras: 


244 E 240 189 73 EK 1 
sde 2 246 21 83 ES] 
129 i5 i32 21 32 ERI 
244 E) 2465 21 an rP1 
123 


Los caracteres de la derecha son los "nombres del fichero” de los cuatro cana- 
les, así pues, tenemos el canal K, canal S, canal R y canal P. 


El canal K es el canal del ”teclado”. La información llega del teclado y se dirige 
a la parte inferior de la pantalla. El canal R permite que la información sea 
enviada al área del espacio de trabajo y el canal P permite que la información 
sea enviada a la impresora. Así pues, ¿cuáles son los cuatro bytes anteriores a 
los nombres de los ficheros?. Reescribamos esto como dos direcciones y los 
nombres del fichero, las direcciones siendo las de las rutinas que contienen las 
rutinas apropiadas: 


dirección de la rutina dirección de la rutina nombres de los 
entrada (decimal) de salida (decimal) ficheros 
25485 4254 K 
0548 5572 Ss 
359659 5572 R 
2545 s57?2 P 


(7) Area del programa 

Esta es el área donde va el programa en BASIC. La variable del sistema PROG 
apunta al comienzo del área del programa, al primer byte del primer número de 
línea. Esto sigue a un byte con el CHR$ 128 marcando el final del canal del área 
de información. Esta área termina en la dirección contenida en VARS menos 1. 
Las líneas de un programa en BASIC son almacenadas de la siguiente forma: 
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Dos bytes 


conteniendo la 
la longitud CHR$ 13 


del texto Texto de la línea de programa BIN 


Dos bytes 
conteniendo 


el número — | de la linea más 1 00001101 
de línea para el CHR$ 13 al (ENTER) 
final de la línea 


Cada línea termina con un CHR$ 13 o el carácter ENTER. Las sentencias 
múltiples están separadas por un punto y coma, el CHR$ 58, y los números son 
almacenados dos veces, primero como los códigos de sus dígitos, entonces, des- 
pués de un CHR$ 14 (indicando un número) sigue la representación de un 
quinto byte del número ya sea un formato entero o un punto flotante. 


Este simple programa le permitirá examinar cualquier línea del BASIC que Vd. 
coloque como primera línea de un programa. El mismo piensa dónde comienza 
la primera línea del programa (línea 10) y dónde termina (línea 20) usando los 
bytes tres y cuatro en la línea del programa, la cual contenía la longitud de la 
línea desde el byte 5 de la línea del programa hasta el carácter ENTER al final. 
A todas las direcciones se les hace un PEEK y se imprimen tres columnas en la 
pantalla. La primera muestra las direcciones, la segunda el número en esa posi- 
ción de la memoria y la tercera el carácter correspondiente a ese número si es 
un carácter que se puede imprimir. El ejemplo muestra una sentencia REM 
siendo examinada: 


20755 o 
23756 1 
23737 153 
23728 e 
237589 234 
23768 1039 
23761 185 
23762 110 
237632 181 
EN7TOt 32 
23765 111 
237656 1082 
223767 22 
23768 66 
23769 65 
23770 23 
23771 73 
23772 67 
23773 13 


m 
zx 


MOHUDO +0 PI*-p 


1 REM LINEA DE BASIC 
10 LET SALIDA==PEER 23695+256%*P 
EEK _ 2233235 
20 LET FINAL=SAL IDA+3+PEEK (SA 
LIDA+2) +25S6*PEERK (SALIDA+3) 
39 FOR A=SALIDA TO FINAL 
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48 LET ASIENTOSPEEK A 

52 PRINT P;TAB S¡ASIENTO;TAB 1 
6;¡CHR%_ (ASIENTO) AND ASIENTO>31 

609. .NEXT A 


(8) Area de las variables 

El área de las variables comienza en la dirección contenida en la variable del 
sistema VARS y termina en la dirección contenida en la variable del sistema 
E-LINE. Esto es donde las variables usadas por el BASIC son almacenadas. 
Para evitar confusiones, los nombres de las variables son almacenados con for- 
matos diferentes a sus nombres con nombres de cadenas, matrices, variables 
numéricas, etc. 


Diferentes patrones de bits para la primera letra en el nombre de la variable 
permiten al computador decir las diferencias entre los diferentes tipos. 


Generalmente estas letras son almacenadas como letras en minúsculas, pero los 
patrones de bits diferentes indican que nosotros no siempre podemos buscar el 
CODE (CODIGO) de la letra en el nombre, por ejemplo. Ahora daremos un 
vistazo a los diferentes tipos de variables. La primera letra de todos los nombres 
de variables es almacenada en un byte como el código de la letra menos 96, ya 
que sólo los bits del O al 4 son significantes para el nombre. Los bits 5, 6 y 7 
siempre tienen valores que dependen del tipo de variables, de forma que no se 
usan en el nombre. Los valores, si el bit 5 y 6 fueran 1, sería 32 y 64 respectiva- 
mente, la suma de lo cual es 96. La letra actual se almacena en los bits 0 al 4 
como el código de la letra en minúscula menos el valor de estos dos bits. Así 
pues, si la primera letra del nombre de la variable era una ”a”, los bits del 4 al O 
serían BIN 00001. Los bits 5, 6 y 7 dependerían del tipo de variable. 


Variables cuyo nombre consiste de una letra (variable numérica) 

Este tipo de variable se almacena con los bits 5 y 6 de su nombre fijado a 1 y el 
bit 7 se reinicializa a 0. Este es un ejemplo raro del primer carácter en el nom- 
bre siendo almacenado exactamente igual a su nombre, pero sólo porque coin- 
ciden los patrones del bit. El nombre va seguido por el byte exponente y cuatro 
bytes para la mantisa: 


PR], 
yte 


Cuatro bytes para la mantisa 


CODE(nombre¡| Ponente 


-96 


¡euas ap 18 
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El byte exponente tiene un valor del 1 al 255 (puede ser 1 o 255). Esto muestra 
donde reside el punto decimal. La mantisa está contenida en cuatro bytes. Estos 
dan los dígitos del número y pueden tener un valor de 0.5 a 1 (nunca es 1, 
aunque puede ser 0.5). El número puede encontrarse con la fórmula 
(mantisa)*2 (exponente-128). 


Como resultado de los valores que la mantisa puede tomar, el bit del extremo 
izquierdo de la mantisa se usa como un bit de señal. Es 1 si el número es negati- 


vo 0 O si el número es positivo. 


Hay un método un poco diferente de almacenar números completos desde el 
65535 al +65535, números que pueden ser acomodados en dos bytes: 


byte 1 byte2 byte 3 byte 4 byte5 


D si es 
número 


positivo O |El número está contenido 


255 si es len el tercer y cuarto bytes 
negativo 


El primer byte de números contenidos de esta forma siempre es cero. Este 
podría añadir identificación de este formato de números. El segundo byte es el 
de signo — será 0 si el número es positivo o será 255 si el número es negativo. El 
tercer y cuarto byte contiene el valor de todo el número en el orden del Byte 
Menos Significante (LSB) seguido por el Byte Más Significante (MSB) y está 
contenido en lo que llamamos "formato de complementos a dos”. 

El valor para un número positivo puede leerse mediante la expresión: 
LSB+256*MSB 

El valor para un número negativo puede encontrarse mediante la expresión: 
LSB+256*MSB-65536 

Y si alguna vez desea leer el valor de esta forma del número, Vd. podría usar: 


LET valor=LSB+256*MSB-(65536 AND(byte de señal=255)) 


El quinto byte siempre será cero. 
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Variables numéricas cuyos nombres consisten de más de una letra 

Este tipo de variable se almacena con los bits 5 y 7 de la primera letra en el 
nombre fijado a 1 y el bit 6 de la primera letra en el nombre se reinicializa a 0. 
Los caracteres subsiguientes en el nombre se almacenan como el código del 
carácter, con todo pero el último carácter en el nombre teniendo el bit 7 se 
reinicializa a O. El final del nombre está indicado por el último carácter en el 
nombre teniendo el bit 7 fijado a 1. En decimal esto significa que la primera 
letra en el nombre se almacena como el código de la letra +64, los caracteres 
subsiguientes son almacenados como el código de la letra/número, con el último 
carácter siendo el código del carácter +128. Incidentalmente, puede llegar a 
confundirse mezclando el decimal y el binario en su mente, así que si Vd. puede, 
es mucho mejor en binario ya que estamos tratando bits individuales. 


Aquí viene un diagrama para ilustrar esto: 


Caracteres 
adicionales 
en el nombre 


si hay más 
caracteres 
en el nombre 


Caracteres 
adicionales 
en el nombre 


5 bytes para el valor tal 
como se mostró 
anteriormente 


CODE(última 
letra en 
el nombre) 


Matriz de números 

Una matriz de números se reconoce por los bits 5 y 6 siendo 0 y el bit 7 siendo 1 
en el byte que contiene el nombre de la matriz numérica. Así pues,el nombre 
está contenido como el código del nombre menos 96 en los bits del O al 4. Esto 
corresponde a los ocho bits del código del nombre +32. 
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2 bytes para 


la longitud total 1 byte conteniendo 
U—— SY | de las dimensiones número de 
CODE(nombre) | de los elementos dimensiones 
—96 y 1 para el byte que | especificadas 
contiene el número 


de dimensiones 


2 bytes conteniendo | 2 bytes conteniendo 
el número de los el número de los 
elementos en la elementos en la 
primera dimensión última dimensión 


5 bytes para 
cada elemento 
de la matriz 


Los elementos de la matriz están contenidos en una forma lógica, de forma que 
los elementos del subíndice de la primera matriz viene primero, después todos 
los del subíndice de la segunda dimensión y así sucesivamente. 


La variable de control de un bucle FOR... NEXT 


Las variables de control del bucle FOR... NEXT se reconocen porque tienen 
los bits 5, 6 y 7 en su nombre colocados todos a 1. La letra otra vez se guarda en 
los bits del O al 4 como el código (nombre) — 96. En decimal, sobre los ocho bits 
o el byte como un todo, esto sería el código (del nombre) + 128. Hay un byte 
para el nombre, 5 bytes para el valor del comienzo (el anterior al TO en la línea 
del programa fijando el bucle), cinco bytes para el valor límite (el número des- 
pués del TO) y cinco bytes para el valor de STEP. Allí siguen dos bytes que 
dicen a qué número de línea el bucle hace un ”bucle” y otro byte para el número 
de la sentencia con esa línea a la que el bucle salta. Esto hace un total de 19 
bytes ocupados en el área de la memoria. 


5 bytes para | 5 bytes para | 5 bytes 
el valor del | el valor conteniendo el 
comienzo límite o final | valor de STEP 


ZA) 


CODE(nombre) 
—96 
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2 bytes 1 byte conteniendo 
conteniendo el número de 
el número de sentencia en la 


línea a la que línea a la 
el bucle salta que el bucle salta 


Variables de cadena 

Las variables de cadena se reconocen porque tienen los bits 5 y 7 que se reinicia- 
lizan a 0 y el bit 6 colocado a 1. El nombre (sólo una letra) se almacena en los 
bits O al 4 como el código del nombre menos 96. En decimal esto significaría que 
el byte que contiene el nombre de la variable de cadena tendría un valor del 
código (nombre) -32. Hay un byte para el nombre seguido por dos bytes para la 
longitud de la cadena, o sea, cuantos caracteres contiene la cadena, como la 
función LEN del BASIC. Entonces aparecen caracteres en la cadena, almace- 
nados simplemente como sus códigos. Si la cadena es nula, aquí no hay caracte- 
res. 


2 bytes conteniendo | Caracteres en la cadena, 
ASÍ SD] el número de si la cadena es nula, 


CODE(nombre) | caracteres en aquí no hya 
—96 la cadena caracteres 


Matrices de caracteres 

Las matrices de caracteres se reconocen porque tienen el bit 5 que se reinicializa 
a 0 y los bits 6 y 7 que son colocados a 1. El nombre se almacena en un byte que 
consiste de una sola letra. Los bits del O al 4 contienen el CODE del nombre 
menos 96. En decimal, esto corresponde sobre todo el byte al código del nom- 
bre + 96. Hay un byte para el nombre, después dos bytes que contienen la 
longitud del resto de la cadena incluyendo los elementos, las dimensiones y uno 
extra para cuantas direcciones hay allí. Los bytes de longitud van seguidos de un 
byte que contiene el número de dimensiones determinadas. Si Vd. tenía DIM 
A$(4,5,6) este byte contendría el 3. Las propias dimensiones siguen en dos 
bytes cada una por el orden en que fueron escritas en la línea del programa 
determinando el DIM. Así pues, en el ejemplo del DIM A$(4,5,6) Vd. obtenía, 
después del 193 para la matriz del nombre, los números 127,0,3,4,0,5,0,6,0 
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seguidos por los códigos de los caracteres en los elementos de las matrices. 
Naturalmente, los ceros son debidos al uso de dos bytes en algunos casos como 
descritos. Finalmente, vienen los elementos de la matriz de caracteres. Estos se 
almacenan por sus códigos en un byte cada uno y por orden. 


el número de 
dimensiones 
especificadas 


mel m 2 bytes para contener , 
- É 1 
] la longitud de la matriz AOS 
ZAS) 


desde el siguiente 
CODE(nombre) | byte hasta el final 


- 96 de los elementos 


Todos los elementos 
de la matriz 

están contenidos 

en un byte igual 
que el CODIGO 

del caracter 
en el elemento 


2 bytes con la 
última dimensión 


2 bytes con la 
primera dimensión 


Edición del comando/línea, datos INPUT y el espacio de trabajo 

Usado por el computador durante la ejecución de los programas en BASIC, 
edición e información del teclado. Estas áreas pueden extenderse o retraerse a 
nada dependiendo en cuanto espacio actualmente necesita. Generalmente, en- 
contrará que si Vd. examina estas áreas no hay nada allí ya que todo ha sido 
verificado de forma que no se usa ningún espacio si no se necesita. 


Stack del calculador 

El stack del calculador se usa para colocar los números de punto flotante, los 
enteros y la información sobre las cadenas. generalmente todo va como cinco 
bytes. Los números en su formato de cinco bytes y las cadenas como cinco bytes 
de detalles sobre ellos (comienzo de las direcciones, etc.). Las operaciones arit- 
méticas y otros hacen uso de este stack. 


Memoria de reserva 

Es la parte de la memoria no utilizada entre el stack del calculador y el de la 
máquina. Puede llegar a utilizarse si los stacks crecen o se hacen cambios para 
las variables o programa, etc. No es muy seguro guardar allí cosas de importan- 
cia. 
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Stack de la máquina y stack de GOSUBs 

El stack de la máquina es donde el Z80A puede poner la información como 
valores de registros. El stack del GOSUB conserva los datos suficientes para 
que el RETURN regrese al punto apropiado en un programa en BASIC des- 
pués de una subrutina en BASIC. La información sobre el número de la línea 
y sentencias que hay a continuación del GOSUB, se almacena aquí para saber 
adónde debe dirigirse. 


RAMTOP 

Esto es el límite de la memoria usada por el BASIC, aparte de los datos de 
gráficos definidos por el usuario que se guarda entre el RAMTOP y el final de 
memoria disponible. Todo lo que se salve sobre el RAMTOP en la RAM está 
seguro de todo lo que esté en BASIC excepto el POKE. El NEW sólo funciona 
mientras duren las direcciones contenidas en la RAMTOP, de forma que las 
especificaciones de los UDGs son seguras a menos que desactive la máquina o 
un POKE. Lo mismo se aplica a cualquier dato o código de máquina de la 
RAMTOP, si todavía la salvó desde el NEW. 
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OTRAS VERSIONES DEL 
BASIC 


Si Vd. desea convertir un programa escrito en otra versión del BASIC, esta 
sección puede que le resulte interesante. Le muestra cómo puede emular ciertos 
comandos, funciones y otras características encontradas en ciertas versiones del 
BASIC que no pueden ser utilizadas directamente en el BASIC del Spectrum 
Sinclair. Algunas veces, se trata de usar otra palabra o algunas veces puede ser 
necesaria una rutina completa. 


Matrices 

Con las matrices numéricas, el único problema que puede encontrarse son los 
subíndices. Estos pueden comenzar en O dónde los subíndices del Spectrum 
comienzan con el 1. Generalmente la solución es añadir un 1 a todas las referen- 
cias para cualquier subíndice de matriz, incluyendo las sentencias DIM, si el 
programa hace uso del subíndice 0. Observe atentamente ciertos detalles como 
A(G+3-1) que con un truquillo pueden convertirse. Tendrá que convertirlos 
individualmente conforme se los vaya encontrando. 


ASC 

Esto corresponde a la función CODE del Spectrum, por lo menos para los 
caracteres con los códigos 32 al 126 en el Spectrum. Si se usa para almacenar 
datos en una cadena o matriz y a continuación se ha de codificar, sería mejor 
que no hiciera ningún cambio; por el contrario estudie la rutina para encontrar 
los valores o caracteres que difieren de su equivalente en el Spectrum. Cual- 
quier cambio debe realizarse individualmente para cada programa ya que no 
existe ninguna regla para los caracteres que tienen los valores CODE/ASC fue- 
ra del rango entre 32 y 126. Puede que existan tan sólo una o dos diferencias con 
este rango. 


CALL 

Se usa para saltar dentro del código de máquina y puede reemplazarse por el 
USR. El Spectrum retorna un número cuando viene del BASIC, el cual deberá 
encontrar algo con el que hacer, o sea, la dirección CALL podría reemplazarse 
por la dirección LET A = USR o la dirección RANDOMIZE USR. 
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Grados y Radianes 
Las funciones trigonométricas del Spectrum trabajan con radianes. Si Vd. nece- 
sita adaptar una rutina usando grados pueden cambiarse a radianes con: 


LET RADIANES=(PI*GRADOS)/180 


DIM 

El programa puede llamar a varias matrices a colocar usando una sentencia 
DIM separada por comas. Así pues, reemplazaría DIM(A3),B(4),C(5) con 
DIM AG): DIM B(4): DIM C(5). Asegúrese de que las sentencias DIM deter- 
minan matrices de cadenas o de caracteres, porque puede que Vd. necesite 
un subíndice extra en el Spectrum, ya que estas matrices están todas determi- 
nadas a una longitud fija en la sentencia DIM. Generalmente en otros com- 
putadores, la longitud de cada cadena en la matriz es solamente tan larga co- 
mo necesite serlo. Así pues, si el programa llama al DIM A$(4) esto significa 
cuatro cadenas separadas, no una cadena de cuatro caracteres como esta sen- 
tencia puede aparecer a algunos usuarios del ZX. La forma de convertir esto 
para el Spectrum es pensar qué cadena es la más larga, digamos 10, letras y 
acoplarla al DIM del Spectrum de acuerdo al DIM A$(4,10). 


DIV 

Esta función retorna parte del número después de una división, de forma que 10 
DIV 4 sería 2. Reescriba esto de esta forma INT(10/4), es decir, ponga la divi- 
sión entre paréntesis y añada el INT. 


DO...UNTIL 

El programa realiza la ejecución de parte del programa entre el DO y UNTIL y 
sólo se detiene una vez se ha realizado la condición después del UNTIL. Gene- 
ralmente, Vd. convertiría esto con IF... THEN GOTO... 


DRAW 

La mayoría de los BASICs dibujarían una línea especificando los finales de las 
coordenadas, o sea, DRAW 200,90 dibujaría una línea terminando en los ejes 
200 horizontal y el 90 vertical. Esto causaría problemas porque la rutina DRAW 
del Spectrum esperaría valores x e y relativos, o sea, el eje x a través de la pan- 
talla desde donde comienza la línea y el eje y desde donde comienza la línea. 
Observe que la mayoría de los BASICs moverían el cursor PLOT para después 
dibujar a partir de allí. Así pues, para convertir MOVE a,b:DRAW x,y pero 
para el Spectrum Vd. usaría PLOT a,b:DRAW (x-a),(y—b). Observe que hay 
una diferencia en que el PLOT tiene que utilizarse dos veces, una para el MO- 
VE y la otra para sombrear en el primer punto de la línea. 


147 


ELSE 

Es una parte de la instrucción IF...THEN...ELSE en la cual la acción que está 
después de ELSE se ejecuta si la condición después de IF es falsa. Ejemplo: 
IF X = 1 THEN PRINT ”X = 1” ELSE PRINT ”Xno es 1”. En el Spectrum se 
escribiría: 


IF X = 1 THEN PRINT”X = 1” 


IFX <> 1 THEN PRINT”X no es 1” 


También puede reescribir algunos ejemplos usando el AND para unir las con- 
diciones. Sin embargo, usando las dos sentencias IF...THEN es la mejor forma 
de seguirle todo normalmente. 


END 
Bajo algunas condiciones éste puede ser omitido. En todos los aspectos es lo 
mismo que el STOP. 


Exponente 
BASICs diferentes usan símbolos diferentes para esto; tan sólo reemplace los 
** 9? por la f del Spectrum. 


Bucles FOR... NEXT 

La diferencia que puede encontrar es que el programa verifica si el bucle ha sido 
terminado. Si la verificación se hace al final del bucle, en el NEXT, esto sig- 
nifica que el bucle será ejecutado por lo menos una vez. En el Spectrum, la 
verificación se hace después del FOR, significando que el bucle nunca se eje- 
cutará si el valor final sobrepasa el valor del comienzo siendo mayor que el 
valor antiguo. 


GET y GET$ 

Esto lee el teclado y generalmente espera a que se pulse una tecla antes de que 
el programa se mueva. La expresión completa es parecida a LET A = GET o 
GET A (y lo mismo para GET$). Esto puede convertirse usando el INKEY$ 
(si el computador espera a que se pulse una tecla, Vd. ha avanzado de manera 
especial en sus conocimientos) o usando INPUT (debía ser obvio que necesi- 
taba el ENTER). 


Si Vd. usa el INKEYS para convertir LET A = GET o GET A con: 
1000 LET A = CODE INKEYS$: IF A = 0 THEN GOTO 1000 
Con el GETS (o sea, LET A$ = GETS): 

1000 LET A$ = INKEYS: IF AS = ””THEN GOTO 1000 
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IF...THEN... 

Algunos BASICs permiten que el THEN pueda ser omitido. Sin embargo, debe 
ser incluido en el Spectrum. Por ejemplo, IF X = 1 PRINT ”Uno” debe escri- 
birse como IF X = 1 THEN PRINT ”Uno” 


INKEY 

Esto lee el código de la tecla que se pulsó recientemente en el teclado. Puede 
ser convertido por CODE INKEY$ de forma que LET A = INKEY se convir- 
tiera en LET A = CODE INKEY. 


Puede encontrarse una versión con un número entre paréntesis. Este es el mo- 
mento que la función esperará a que se pulse una tecla antes de moverse. La 
forma más fácil es poner un PAUSE antes de buscar el teclado. Así pues: 


LET A = INKEY(50) 
puede convertirse: 


PAUSE 50:LET A = CODE INKEY$ 


Si las unidades de tiempo no son las mismas, deben necesariamente hacer algu- 
nos cambios sobre la longitud del PAUSE. 


INSTR 

Esta función busca una copia de una cadena con otra. Necesitará una rutina 
completa para reemplazar esto. La rutina que se muestra produce resultados 
similares al LET Y = INSTR(B$,C$). El B$ es la “gran” cadena en la cual Vd. 
busca una copia de la string C$ más pequeña. No sucede ningún error si tanto 
una cadena como otra es mayor o quizás del mismo tamaño. 


3398 A —. ETRE STONES 

22189 IF LEN C%=8 OR LEN Bs5=42 OR 

LEN CHLEN B% THEN RETURN 

3215 FOR P=1 TO LEN BS5-LEN C%+1 

32280 IF G6%s(P TO P+LEN C%5-1)=C%H T 
HEN_RETURN 


3230 LET P=08 
3235 RETURN 


Volviendo a la rutina, Y contendrá la posición donde comienza la copia, 1 si la 
copia comienza al principio, 2 si comienza en la segunda letra y así sucesivamen- 
te. Si no se encuentra ninguna copia o el C$ es mayor que el B$ entonces Y será 
0. Por la razón que sea, si Y es Q,signfica que no hay una copia exacta de C$ en 
BS. 


149 


Variables enteras 

Generalmente son identificadas porque tienen el símbolo del tanto por ciento 
% al final del nombre. Por ejemplo, A%. Normalmente, Vd. podría usar cual- 
quier nombre de variable que quiera asegurándose de que el valor que va en la 
variable es un entero, o sea,si el original LET A% = 3/2 y Vd. quiere imprimir 
PRINT A%, obtendrá un 1. Para tener el mismo resultado en el Spectrum Vd. 
debería usar LET A=INT(3/2). 


LETF$ 

La función LEFT$(A$,B), la cual toma los primeros B caracteres desde el 
A$ puede escribirse como A$(TO B)en el Spectrum. Así pues, algo así como 
LET R$=LEFTS$(A$,B) se convertiría en LET R$ = A$(TO B). 


LINK 
Esto es una llamada a una rutina en código de máquina. Puede reemplazarlo 
por USR. 


Expresiones lógicas 

Parece que va a encontrarse con más de un problema con los valores de TRUE 
y FALSE. El cero siempre es valor falso en los programas que se encontrará, 
pero verdad puede a menudo ser —1. Con esto quiero decir que algo como 
PRINT (1=2) imprimirá O (igual como lo hará en el Spectrum) y PRINT( = 1) 
imprimirá —1 porque la expresión es verdadera. En el Spectrum PRINT (1 = 1) 
imprimirá 1. Aquí la solución es negar el resultado de estas expresiones. Si el 
original lee: 


LET X = 10- (PUNTOS = 6) + (TIEMPO < 300) 

esto sería reescrito para el Spectrum así: 

LET X= 10 + (PUNTOS = 6) - (TIEMPO < 300) 

Sea consciente del uso del AND y el OR como operadores binarios los cuales 
operan sobre números bit por bit. Generalmente esto se manifiesta como en 
esta corta sentencia: 


LETA = A AND 4 


No hay ninguna forma más fácil para convertir estos en BASIC. Deberá reescri- 
bir la rutina generalmente o olvidarse de ella por completo. 
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LOGS 
El Spectrum usa los logaritmos naturales. Si Vd. necesita logs para otras bases 
(normalmente para la base 10) use: 


LET LOGBASEX número = LN número / LN X 


donde X es la base y número es el número que Vd. desea para encontrar el 
logaritmo. 


MAT 
Abreviación para Matriz o Matrices. Esta es una función la cual trabaja con 
todos los elementos de una matriz: 


10 DIMX(10) 
20 DIMY(10) 
30 MATX=Y 


O sea, todos los elementos de la matriz X son hechos igual a los de la matriz Y. 
Vd. deberá usar un bucle para realizar la Operación con todos los elementos de 
las matrices: 


10 DIM X(10) 
20 DIM Y(10) 

25 FOR M= 1 TO 10 
30 LET X(M) = Y(M) 
35 NEXT M 


MID$ 
MID$(W$,T,U) toma U caracteres de la cadena W$, comenzando con el ele- 
mento T. En el Spectrum use W$(T TO T + U - 1). 


MOD 
A MOD B nos da el resto después de que A ha sido dividida por B. Reemplace 
con A — (INT(A/B)*B). 


MOVE 

Todo lo que esto hace es alterar la posición del cursor PLOT sin dibujar nada 
en la pantalla. Generalmente usado para determinar un punto desde el cual se 
dibuja una línea, y para examinar una parte particular de la pantalla. Observe 
que cuando se usa para dibujar líneas, la función asociada DRAW llenará el 
primer punto de la línea El DRAW del Spectrum no lo hará y Vd. deberá usar 
el PLOT y DRAW juntos. Para simular MOVE tiene que hacer un POKE|de 
los valores de la X y de la Y dentro de las variables del sistema que contienen las 
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actuales coordenadas de PLOT. Para reemplazar el MOVE a la misma escala (o 
sea MOVE X, Y) use: 


POKE 23677,X:POKE23678, Y 


NEXT 

En algunas versiones del BASIC puede omitirse el nombre de la variable des- 
pués del NEXT. Si es así, se incrementa el valor de la variable de control más 
reciente. Esto no es posible en el Spectrum. Vd. siempre debe especificar el 
nombre de las variables de control. 


ON...GOTO/GOSUB... 
Esto normalmente toma la forma: 


ON X GOTO 200,300,400,500 


Que significa que si la X fuera uno, el programa haría un GOTO al primer 
número de línea en la lista después del GOTO o GOSUB. Si X fuera 2, el 
programa haría un GOTO/GOSUB del segundo número de línea y así sucesiva- 
mente. 


La forma más fácil es convertir usando 1F...THEN GOTO... de forma que lo 
de arriba se convertiría en: 


IF X = 1 THEN GOTO 200 
IF X = 2 THEN GOTO 300 
IF X = 3 THEN GOTO 400 
IF X = 4 THEN GOTO 500 


Vd. podría usar AND para convertirlo: 


GOTO (200 AND X = 1) + (300 AND X = 2) + (400 AND X = 3) + (500 
AND X = 4) 


Si los números de línea van a un paso que se lo permita, use un GOTO compu- 
tado como éste: 


GOTO 100 + (X * 100) 


PAINT 

Esto es un comando de gráficos que llena una área de la pantalla en color. No 
existe ninguna forma rápida para convertir esto en BASIC y de todas formas 
varía de una máquina a otra. Esto y muchos otros comandos de gráficos es 
mejor evitarlos porque los gráficos son probablemente el área donde hay las 
más grandes diferencias entre varios computadores. 
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PEEK y POKE 
Esta es la otra gran diferencia de un computador a otro. Generalmente se nece- 
sita el conocimiento de la arquitectura del computador y que a menudo es impo- 
sible convertir. 


PRINT 
En algunos computadores se usa el signo de interrogación ? como abreviación 
del comando PRINT, el cual debe escribirse completo en el Spectrum. 


PROC, ENDPROC 

PROC es la abreviatura de procedimiento, lo cual es una forma de subrutina 
llamada más por el nombre que por el número de línea. 

En el Spectrum Vd. reemplazaría el PROC con una subrutina, llamada GO- 
SUB (número de línea). Reemplace el ENDPROC con un RETURN. 


NUMEROS ALEATORIOS 

Algunas computadoras generan números aleatorios con la expresión RND (X) 
la cual retorna un número completo entre el 1 y la X inclusive. Convierta el 
RND(X) con INT(RND*X)+1. Si Vd. ve una expresión como RND (0) gene- 
ralmente significa repetir el último número aleatorio. El RND(-X) general- 
mente significa lo mismo que RAND en el Spectrum. 


REPEAT... UNTIL 

Esto significa la creación de un bucle sin referencia de los números de línea. El 
bucle sigue funcionando para siempre, a menos que la condición mencionada 
después de la palabra UNTIL sea verdadera y el programa termina el bucle. A 
continuación tiene un ejemplo de su uso: 


Esto puede ser convertido usando una sentencia IF... THEN GOTO... en la 
línea que contiene el UNTIL, el GOTO refiriéndose a la sentencia o línea que 
viene después de la que contiene el REPEAT. Si Vd. lo convierte como yo lo he 
hecho aquí, puede también incluir una sentencia REM como un recordador y 
haga esto: 


LET Xx=AaA 

REM AQUI El. BUCLE 
LET X=X+1 

IF xX<18 THEN GO TO 20 


PLun 
650989 
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RESET 

Se usa para hacer un punto o bloque en la pantalla blanca o negra. Es un 
comando de gráficos que normalmente puede reemplazarse con el PLOT o 
PRINT dependiendo del computador y de la naturaleza del programa. 


RESTORE 

El Spectrum puede tener un número de línea después del comando RESTORE 
y esto puede muy a menudo simplificar un programa. Es bastante común en- 
contrarse con algo así: 


100 RESTORE:FOR A = 1 TO 4: READ A$: NEXT A 
110 DATA ”PESCADO”,”PAJAROS”,”MAMIFEROS”,”REPTILES” 
120 DATA ”GATOS”,”PERROS” 


Es necesario saltarse ciertos datos hasta que llega a la sección correcta. En el 
Spectrum, reemplace todo en la línea 100 con: 


100 RESTORE 120 


RIGHT$ 

RIGHT$(R$,X) toma los caracteres X de la derecha de la cadena R$. En el 
Spectrum use R$(LEN R$ -— X + 1 TO). Observe que no es necesario poner 
nada después del TO en la versión del Spectrum. 


SCROLL 

El comando de deslizamiento del ZX81 puede reemplazarse con el PRINT AT 
21,31” (observe los dos apóstrofes). Esto tiene la ventaja de ser en un BASIC 
.muy simple pero tiene la desventaja de inutilizar el mensaje scroll?” del Spec- 
trum. La llamada de la ROM LET A = USR 3582 deslizará la pantalla sin que 
este efecto suceda. Naturalmente tiene la desventaja de que al usar una ROM 
diferente las direcciones pueden ser diferentes. 


SET 

Ver RESET. 

TAB(X, Y) 

Aparte de que el programa puede haber sido diseñado para un computador con 


más caracteres a lo ancho de la pantalla (o menos), esto es lo mismo que AT 
Y,X; en el Spectrum. 


THEN 


El THEN puede ser omitido en algunos computadores, es decir IF X = 2 GO- 
TO 10, pero debe ser incluido en el Spectrum, así IF X = 2 THEN GOTO 10. 
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Variables indefinidas 

Si un programa intenta utilizar una variable antes de que ésta haya sido deter- 
minada,la mayoría de los BASICs asumirán un valor de cero. Sin embargo, en 
el Spectrum se genera un error Variable not found”. 


VAL 


Igualmente, si la cadena a la que se le aplica el VAL no es numérica el valor que 
se obtiene es 0. En el Spectrum, Vd. puede obtener diferentes errores (o sea, 
el error 2 de arriba o el error C sin ningún sentido en el BASIC). 
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COMO FUNCIONA LA 
VISUALIZACION EN 
PANTALLA 


Después de leer el capítulo 24 del manual del Sinclair puede ser ya consciente 
de lo inusual del diseño del patrón de puntos de la visualización en la pantalla. 
La copia del cuadro en la memoria se almacena en dos bloques. Primero el 
patrón de puntos almacenado en un bloque de 6144 bytes en la dirección 16384 
a la 22527. Cada punto en la pantalla tiene un bit correspondiente (ocho bits 
en cada byte, 6144*8 = 49152 puntos/bits) pero los puntos no están en el mis- 
mo orden en la pantalla que en la memoria. Esto será explicado más adelante. 


El segundo bloque contiene la información del color, brillo y destello en un 
bloque de 768 bytes en la dirección 22528 a la 23295. Echaremos una mirada a 
ambas secciones. Primero, el fichero para la visualización que contiene el pa- 
trón de puntos de la pantalla. Recuerde que cada bit corresponde a un punto en 
la pantalla y cuando hacemos un POKE de todo un byte estamos cambiando los 
ocho bits/puntos al mismo tiempo. Cualquier bit que se determine a 1 será el 
color INK en la pantalla y cualquier bit que, esté determinado a O aparecerá 
con el color de PAPER. Si el valor con el que nosotros hacemos un POKE es 
255 (que es BIN 1111 1111 que fija los ocho bits a 1), cada uno aparecerá como 
una línea con ei ancho de un carácter y un punto de altura. 


20 FOR _A=16384 TO Z2DZTY 
20 POKE R,255 
34 NEXT A 


Habrá ya observado varias cosas. Primero de todo, no parece ser un patrón re- 
conocible en la forma como llena la pantalla. Segundo, la pantalla se va lle- 
nando en tres bloques, las ocho hileras de arriba (imprime las hileras de la 0 a 
la 7), las ocho hileras de la mitad (imprime las hileras de la 8 a la 15) y final- 
mente las ocho hileras de la parte inferior (imprime las hileras 16 a la 23). 


Esto significa que la pantalla inferior también se almacena o guarda allí. Lo que 
sucede es que se llena la hilera O de la primera línea de puntos de la parte 
superior, a continuación la línea de puntos de la hilera 1, y así sucesivamente 
hasta llegar a la hilera 7. Entonces se llena la hilera O de la segunda línea de 
puntos, después la hilera 1 de la segunda línea de puntos, y así hasta completar 
las hileras de la O a la 7 de las ocho líneas de puntos. De todo esto podemos lle- 
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gar a la conclusión que para encontrar la dirección de la línea superior de pun- 
tos en una hilera de caracteres (usando PRINT AT Y,X; coordenadas) en la hi- 
lera Y, columna X. Podríamos usar: 


LET DIRECCION=216354+Y*+32+X 


Esto sólo funcionaría para los valores de Y desde O al 7. Habrá observado que el 
bloque de en medio de las hileras 8 se llenan de la misma forma que la hilera de 
la parte superior una vez ha sido terminada. Desafortunadamente, la ecuación 
sólo funciona para las hileras O a la 7 de la parte superior. Sin embargo, esta 
ecuación le dirá dónde hacer un POKE para la línea superior de puntos en las 
hileras 8 a la 15: 


LET DIRECCION=163584+2045+ (4-15 
*32+x 


El número 2048 indica cuántos bytes representan las hileras desde la 0 a la 7. 
Recuerde, hay 32 columnas a través de la pantalla, 8 bytes para la posición de 
cada carácter y 8 hileras en ese bloque de la pantalla (32*8*8 = 2048). Igual- 
mente, necesitamos otra ecuación para el tercer bloque más inferior de la pan- 
talla: 
LET DIRECCION=163R4d+40056+1/y-381 
32 +x 


Este podría utilizarse como esto. Esto es un programa ejemplo que imprime el 
número 8 debajo, a la izquierda de la pantalla y después hace un POKE de una 
línea arriba de cada figura 8 como si subrayara sólo la parte superior del carác- 
ter: 


18 LET x=09 
20 FOR Y=9 TO 21 
39 PRINT AT_Y,a; "a" 
49 IF Y<=? THEN LET DIRECCION= 
10904 +Yxi323+X 
52 IF Y>=8 AND Y<=15 THEN LET 
DISECCION=216394+20430+ (Y -3) 2302+X 
52 1F Y>-=18 THEN LET DIRECCION 
=18384+4096+ (Y-18) 232+Xx 
79 POKE DIRECCION, 255 
39 NEXT Y 


ÑL 


Es un incoveniente del bit tener que escribir tres líneas de programa 
(de la 40 a la 60) cuando con una se podría hacer. La parte más matemática que 
haya podido ver la encontrará resumida en una sola línea: 


LET  RIRECCION=16334+2043x+ INT 
Y 781 +D02EY- CINTO (Y 48) 2Ox%O2) +X 


Después de una especie de juegos de manos de bits aparece: 


157 


LET DIRECCION=16384+20438x*+ INT 
Y 383) + (Y-C(INT— (4/8) :9)) 232+X 


LET DIRECCION=16394+204d0x*+1INT € 
YI) +42 Y-256% INT (YD) +X 


LET DIRECCION=16584+1Y392xFINT £ 
YD) +4FD2% VS X 


Y finalmente: 


LEFT DIRECCION=186384+232% (551 INT 
(YD) FIFA 


Parece extraño, pero funciona. Así pues, si le cambiamos las líneas 40, 50 y 60 a 
nuestra maravillosa línea: 


19 LET X= 

24 FOR Y-982 TO 21 

308 PRINT AT Y,0;"S5" 

40 LET DIRECCION=16034+32% (558% 
INT" IY-<D14Y)+X 

59 POFE DIRECCION, 255 

560 NEXT Y 


Funciona muy bien. Ya puede ir pensando qué hacer con las otras líneas que no 
sea la de la parte superior en cualquier carácter. Lo que se produce es que como 
la línea superior de cada bloque de ocho hileras es almacenada una detrás de 
otra, entonces la segunda línea de puntos en cada hilera siguen 256 bytes (32 
caracteres por hilera *8 hileras = 256) más o menos. 

Aquí tenemos la fórmula para obtener la dirección de un punto de la pantalla 
que se encuentre en cualquiera de los tres bloques de 3 hileras. 


LET DIRECCION=146384+532+ (56 *INT € 
YI) FYI14+4X+ LI 1258 


Pruebe este programa de demostración que llena una línea entera una columna 
de ochos: 


10 LET X=1 
20 FOR Y=0 TO 22 
39 PRINT AT Y,e; "sas" 
489 FOR L=8 TO 7 
sa LET DIRECCION=16384 +32% (56 £ 
mE (Y El Fi +X AL ADO 
PORE DIRECC. 


ION, 255 
Se NEXT L 
30 NEXT Y 
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Pruebe este programa, el cual, muy despacio e ineficientemente, llena la panta- 
lla haciendo POKESs de las direcciones en el fichero de visualización en el orden 
correcto para llenar cada posición de los caracteres en el orden en que la perso- 
na espera verlo desde la pantalla. Incidentalmente, extendiendo el valor de X a 
23 significa que Vd. puede hacer un PLOT en las líneas 22 y 23 en donde 
normalmente no lo podría hacer. Sin embargo, observe que Vd. no puede hacer 
POKEs de puntos individuales sin afectar a los ocho puntos controlados por 
todo el byte, a menos de que esté preparado para revisar los valores que ya 
están en el byte y determinar relacionadamente qué valor ha de POKEar. 


18 FOR Y=a TO 23 

29 FOR X=89 TO 31 

350 FOR L=0_ TQ 7 

40 LET DIRECCION=163094+232:% (0% 
INT_ (Y ¿81 +4) 3+X+LEZSG 

50 POKE DIRECCION,255 

60 NEXT L 

78 NEXT X 

289 NEXT Y 


En binario, hay un método más fácil de entender para mostrar el fichero. Cier- 
tos grupos de bits proporcionan cierta información relativa a la posición para 
mostrar el fichero. Esto lo encontrará de utilidad en código de máquina ya que 
le permite el acceso de texto y gráficos a la pantalla bastante fácilmente. Este 
diagrama le mostrará cómo esto está organizado. 


EI ESTO E ET ONE 


Estos dos bit 
son $ si el punto 


referido está el caracter de 8 x 8. 


en el tercio de Valor del bloque f 


N ; 
oa as para la columna 
sta en s 
esta en la mitad | uperior, 7 para 


del tercio ó 2 si á d 

; A la inferior 
está en el tercio 
superior 


2048*INT(Y /8) 256 * LINE 


El valor fijo para 


apuntar el inicio del 
fichero de visualización 
BIN es 16384 


159 


En el tercio apropiado 
de la pantalla, Coordinada X 
que filas de caracteres del bloque de 


de la Da la 7 caracteres a 
-de forma que para Y = 8 través de la 

ó Y = 16 esto sería pantalla, V a 31 
H Y-INT (Y/8) 8 


Junte las expresiones de cada sección en el diagrama y obtendrá una experien- 
cia que ya le será familiar: 


16384 + 2048 * INT(Y/8) + Y - (INT(Y/8) * 8) + X + LINE*256 


Segundo, el fichero de atributos. Esto es más fácil de entender. La información 
del color/flashing/brillo para cualquier posición de caracteres se almacena toda 
en un byte. Hay 32 por 24 casillas de caracteres en la pantalla haciendo un total 
de 768 bytes. Estos son almacenados en un bloque de la memoria llamado el 
fichero de atributos desde la dirección 22528 a la 23295. El diseño de estos 
bytes es bastante simple para entender comparado con la visualización del fi- 
chero. 


El primer byte (22528) corresponde al carácter de la parte superior izquierda de 
la pantalla de TV. Los primeros 32 bytes corresponden a la hilera superior de 32 
caracteres a través de la pantalla. Los siguientes 32 bytes corresponden a la 
segunda hilera de 32 caracteres a través de la pantalla de TV, los siguientes 32 
bytes corresponden a la tercera hilera de 32 caracteres y así sucesivamente hasta 
llegar al último carácter de la pantalla en la hilera inferior (fila 23). Si quiere ver 
lo fácil que es de entender, pruebe este programa que hará que todo lo de la 
pantalla aparezca en negro. Observe el orden por el cual la pantalla se llena, 
incluyendo las dos líneas del final. Aunque éstas aparecen negras por un mo- 
mento, el indicador del código del reporte sobreescribe esto. Añada un PAUSE 
0 al final de la línea 30 para ver el efecto y pulse cualquier tecla (excepto las 
SHIFTS!) para terminar el programa: 


19 FOR A=22528 TO 25295 
20 POKE RA, 
30 NEXT A 
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La información en un byte de atributos está contenida en un formato que per- 
mite a los bits individuales almacenar valores para el flashing, brillo del color 
PAPER y color INK: 


FLASH BRIGHT 


1 si destella 1 ni tiene Color PAPER Color INK 
/ si no brillo Y en binario en binario 
destella normal 


Con esto, es posible hacer un POKE en cualquier posición del fichero de atri- 
butos si Vd. conoce el PRINT AT Y,X; coordenadas (donde Y es la posición 
PRINT en vertical con respecto a la pantalla y la X es lo mismo pero en hori- 
zontal). 


POKE (2252834323 Y+X2 , NUMERO 


Esto también podría hacerse usando PRINT AT Y, X¡OVER1;””_ pero es otra 
historia. 


Pruebe este programa. Le pedirá que entre los valores de Y y X, imprimir un 
carácter allí, y después le pedirá que entre un valor para los atributos y Vd. verá 
si cambia de color, brillo y/o flashing depende de lo que Vd. haya entrado. Del 
diagrama de arriba, quizás quiera usar el BIN para entrar el valor de atributos, 
es decir, si Vd. quisiera no flashing, brillo, PAPER blanco y caracteres INK 
azules, Vd. entraría BIN 01111001: 


1 INPUT "ENTRA EL VALOR PARA 


o 
XX 
y «2B INPUT “ENTRA EL VALOR PARA 
30 PRINT AT Y,Xx;"+" 
O INPUT “ENTRA El VALOR PARA 
ATRIBUTOS"; ATRIBUTOS 
159 POKE (22528+232:Y+X) ,ATRIBUT 


No existe ningún problema en hacer un PEEK del fichero de atributos ya que 
ATTR puede hacerlo por Vd., pero si ya está determinado use esto: 


LET P=PEEK (22528+32*Y +X2 
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LLAMADAS DEF FN UTILES 


Aquí verá algunas llamadas de función que yo he encontrado útiles y además 
todas juntas para Vd. 


(1) Para encontrar si el bit B (0 al 7) del número N (0 al 255) es 1 0 0: 
DEF FN A(B,N) = INT (N-INTQO 1(B+D)*Q 1 (B=+D)/Q 1 3) 

(2) Añada un porcentaje P a una cantidad A. 

DEF FN S(A,P) = A * P/100 + A 

(3) Dada una cantidad total T que incluye un porcentaje P añadido a una canti- 
dad original, esta función le dirá cuál era la cantidad original. Util para los 
cálculos del VAT, etc.: 

DEF EN A(P,T) = (T'*100)/(100 + P) 

(4) Impar o par. FNO() será 1 si el número N es impar, O cero si es par: 
DEF FN O(N) = N - INT (N/2) * 2 


(5) Para encontrar el color PAPER en la posición de la pantalla Y,X (es decir, 
resolver los atributos a componentes): 


DEF EN P(Y,X) = INT ((ATTR (Y,X) - INT (ATTR (Y,X)/64)*64)/8) 

(6) Para encontrar el color INK en la posición Y,X de la pantalla: 

DEF EN I(Y,X) = INT(ATTR(Y,X) — INT (ATTR(Y,X)/8)*8) 

(7) Para encontrar el estado FLASH (0 o 1) en la posición Y,X de la pantalla: 
DEF FN EF(Y,X) = INT (ATTR(Y,X)/128) 

(8) Para encontrar el estado de BRIGHT en la posición Y,X de la pantalla: 
DEF EN B(Y,X) = INT ((ATTR(Y,X) - INT(ATTR(Y,X)/128) *128)/64) 


(9) Un PEEK de 2 bytes comenzando en la dirección A: 
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DEF EN P(A) = PEEKA + 256 * PEEK (A + 1) 


Vd. podría usar esto en su programa mientras lo escribe. En cualquier momen- 
to, PRINT FN(23641) — 16384 le dará una vaga idea de cuánta memoria ha sido 
utilizada (incluyendo todo hasta el final de las variables). Esto le ahorra escribir 
una expresión muy larga del PEEK todo el tiempo. 


(10) Lo que queda de memoria en bytes: 


DEF FN M() = PEEK 23730 + 256 * PEEK 23731 - PEEK 23653 — 256 * 
PEEK 23654 


(11) Redondeo del valor de X al número más cercano: 

DEF FN W(X) = INT(X + 0.5). Esto sufre desde el punto de vista que el 
Spectrum contiene el número 0.5 de tal forma, que dando a X un valor de 0.5 
dará 0. Esto puede corregirse incrementando el valor añadido a la X en la 
función, digamos, 0.50000001. 


(12) Números aleatorios entre 1 y X: 
DEF EN R(X) = INT (RND * X) + 1 


(13) Centrando una cadena en medio de la pantalla. Esto retorna el valor para 
TAB para imprimir la cadena de forma que está en el medio de la pantalla: 


DEF EN M(M$) = (16 — LEN M$ / 2) AND LEN M$ < 33 


Esto sólo funciona para cadenas de hasta 32 caracteres de longitud. Si son más 
largas de 32 caracteres, la rutina sólo imprimirá desde la izquierda de la panta- 
lla. Así es como debe utilizarse la función; póngala en una sentencia PRINT 
como el argumento de TAB recordando colocar la cadena a imprimir entre 
paréntesis, o sea, PRINT TAB EN M(A$);A$ o PRINT TAB FN M(”PERRO- 
”):”PERRO”. 


(14) Para encontrar la base logarítmica 10 de un número N usando los logarit- 
mos naturales del Spectrum: 


DEF EN L(N) = LN N/LN 10 
La fórmula puede utilizarse para encontrar logaritmos a otras bases, o sea, la 
base B: 

DEF FN L(N,B) = LN N/LN B 


(15) Redondeando una cantidad A a posiciones de 2 decimales: 
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DEF FN R(A) = INT (A * 100 + 0.5)/100 
Redondeando una cantidad A a posiciones decimales D: 


DEF FN R(A,D) = INT (A * (10 7 D) + 0.5)/(10 1 D). 
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CANALES INPUT-OUTPUT 


Es posible usar ciertos comandos para suministrar OUTPUT (SALIDA) a dife- 
rentes destinos o recibir INPUT (ENTRADA) desde ciertas fuentes, o sea, 
pruebe INPUT +2; "Esto es +42”; +1;X. 


Esto nos introduce al sistema de los canales utilizados para la entrada y salida 
de información en el Spectrum. Hay 19 canales posibles. Los canales -3 al -1 
son utilizados por el sistema operativo, pero prácticamente no puede ser utili- 
zado por el programador. Con el Spectrum solo (sin el módulo de expansión, 
microdrives, etc.),los canales O al +3 son implementados de la siguiente forma. 
Observe como sólo el canal 1 permite el INPUT normalmente: 


Espacio de trabajo / 
pantalla inferior 


ninguno 


teclado área de edición Pa 


pantalla inferior 


ninguno pantalla superior 


impresora 


ninguno 


Los canales 4 al 15 no se usan en el momento de escribir (a menos que hayan 
sido abiertos especialmente por el usuario) aunque probablemente serán utili- 
zados por alguna opción de expansión como la RS232, microdrives, etc. Pode- 
mos hacer uso de ciertos canales para imprimir, por ejemplo, pruebe: 


Observe como la salida del PRINT puede ir a ambas partes de la pantalla e 
incluso a la impresora. El PRINT no es el único comando que puede utilizarse 
de esta forma. Pruebe: 
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10 INPUT $2;"Entra gn número “ 
¿¡31;x 


El mensaje indicador de la cadena para el INPUT aparece en la pantalla supe- 
rior (observe que no se borra a continuación) donde cualquier cosa que Vd. 
escriba aparece en el lugar normal. Esto es porque la tecla INPUT sólo puede 
venir del canal 1 determinado ya por la ROM. El OUTPUT puede ir a cual- 
quier canal especificado. El LLIST también puede ser reemplazado por PRINT 
+3 y el LPRINT reemplazado por PRINT ++3. Pruebe el LPRINT 42. ¿Quién 
necesita más el PRINT? La aplicación más obvia para esto es usar el PRINT 41 
para que nos permita imprimir en esas dos líneas de la pantalla inferior. Para 
ver lo que sucede cuando intenta obtener un INPUT desde los canales 0,2 0 3, 
pruebe INPUT 33;X. 


Este ejemplo intenta obtener un INPUT desde la impresora, cosa que Vd. no 
puede hacer, obviamente. Hay un error del Periférico 1/O de J no válido. 
Vd. puede abrir un canal con la sentencia OPENF. Para hacer esto debe especi- 
ficar qué periférico corresponde a ese canal. Después de + viene el número del 
canal, entonces una coma, después entre comillas una letra para denotar el 
”periférico”; R, K, S o P espacio de trabajo/pantalla inferior, área de edición- 
/teclado y pantalla inferior, pantalla superior e impresora respectivamente, O 
sea OPEN,5,”P”. Lo mismo puede hacerse para cerrar un canal usando CLOSE 
+5, por ejemplo. Asegúrese de cerrar un canal antes de que haya sido abierto 
si no le acarreará graves resultados. 
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CONTROLAR ESOS NUMEROS 


La impresión de los números a la pantalla a menudo puede ser un arte si se 
necesita cualquier control sobre esos números. Especialmente los programas 
serios necesitan que los números sean tabulados de una cierta forma. Debería 
asegurarse de que sólo se imprimen unas cuantas posiciones decimales, que 
todos los números son impresos uno debajo del otro con los puntos decimales 
alineados, o de que todos los números contienen la misma cantidad de dígitos. 


Todo esto hace que se pida que el número se convierta en una cadena caamina- 
da después carácter por carácter para encontrar el punto decimal, la parte ente- 
ra estudiada para decidir cuántos ceros a añadir, o revisar la longitud, y así 
sucesivamente. Veremos las rutinas para suministrar los varios tipos de forma- 
to que a menudo se usa. 


(1) Redondear un número para un conjutno de posiciones decimales 
Numéricamente es bastante simple redondear una cantidad (AMOUNT) a 2 
posiciones decimales. Todo lo que se necesita es una fórmula como: 


LET DOSDEC=INT (CANTIDAD:100+0.5 
11/1800 


Es muy útil para los valores del dinero, ya que Vd. puede redondear hasta una 
peseta. Este corto programa le mostrará lo que puede hacer la rutina y algunos 
de sus trucos. La línea 10 genera una cantidad AMOUNT en random (aleato- 
rio) que la línea 20 reduce a TWODEC, una copia de AMOUNT se redondea a 
dos posiciones decimales. Ambas se imprimen una al lado de la otra en la línea 
30 para comparar. 


10 LET CANTIDAD=RND=1009 

20 LET DOSDEC=INT tCANTIDAD:18 
0+4.5) 100 

30 PRINT CANTIDAD ,DOSDEC 

40 GO TO 10 
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34.9892273 34.239 


159. 993713 16.93 
74 .6231839 74.62 
20. 7620095 36.76 
57. 159424 57.165 
37.BUS5S1IS 357.01 
25.43498 73 25.43 
TY GS9SaS 7.7 
77.574158R TRELEDR 
123.830243 135.09 
Sb.«235b1279 508.>5b 
42R.14477320 4. 1d 
Su. 223707 20.92 
$59.328702 59.393 
22.54357/62 292.54 
65.732165 65.73 
22. 708552 BR. 
27 .G616292 7.62 
71. 348272 ¿1.23 
51.17/4927 51.17 
32.174420 39.17 
Gn. 1204 7D 2-15 


La rutina funciona bastante bien, quizás un poco desordenadamente. Los nú- 
meros menores que 0.1 se imprimen sin ceros antes del punto decimal y los 
números mayores que o iguales a 0.1 y menores que 1 se imprimen con un cero 
antes del punto decimal. También puede haber una cantidad de dígitos de la 
variable después del punto decimal, es decir, el número 2 (sin ningún dígito 
después del punto decimal), 2.2 (1 dígito después del punto decimal) y 2.24 
(que tiene dos dígitos después del punto decimal). 


Si Vd. desea redondear una cantidad CANTIDAD a LUGARES (posiciones) 
decimales, use esta rutina. El redondeo sucede una vez se ha redondeado la 
cantidad: 


LET REDONDEO=INT— (CANTIDAD (10OtTL 
UGARES) +0.5) - (1IOFTLUGARES) 


El uso del exponente hace que la rutina sea lenta comparada con la versión an- 
terior. Si esta última rutina se ha de usar más de una vez, trate de almacenar la 
exponenciación en otra variable para que las cosas vayan más rápidas: 


LET_ MULT=140tD:LET REDONDEO=INT £ 
L2ANT IDADEMULT+O. 5) ¿MULT 
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(2) Redondear un número fijo de posiciones decimales con ceros y/o el punto 
decimal añadido si es necesario. 

Aquí, AMOUNT es la cantidad a imprimir en 2 posiciones decimales. Esto 
termina en una cadena A$, una cadena con cualquier dígito adicional añadido si 
es necesario. 


10 LET CANTIDAD=AND+1004 

¿20 LET AR*=STRS (INT. (CANTIDAD 
199+0.5) 100) 

54 1F A$t1)="." THEN LET Añí="80 


$ 
ad C=LEN AS-LEN STRS% INT Y 
S5S0 LET AF=A%$+".00" (C+1 TO J) 


60 PRINT "E*";CANTIDAD,"£”";A% 
76 GO TO 106 


AL 


£68.476568 63.48 
£35. 800171 £35.89 
£a85. 436065 £85.09 
f81.471252 fa81.47 
£10.3863277 10.56 
£77,.384949 E? ?.S35 
£3.59556585 ES.290 

f£fa2.27 7527 £o2.20 
£2o06.s22144 f20.52 
£61.7507935 f61.75 
£31.552234 £31.305 
£51.4295561 £51.50 
£62.2070831 fo62.21 
F65.57005685 £65.57 
£17.7293274 £17.79 
£34. 52839623 34.59 
£94.221497 £94.22 
£66.61858347 f66.62 
£2968.41418S5 £96.41 
£231.066595 £31.047 
£30.029491 £350.0439 
£3S57.197571 57.20 
£¿a9. 566658 59.87 
£40. 0408545 f£f40.01 
2. 70806781 £a. 72 


La salida de este programa es lo que puede esperar ver en una etiqueta de 
precios, en libras. La línea 10 determina la cantidad inicial y la línea 20 lo 
convierte a una cadena equivalente redondeada a dos lugares decimales. La 
línea 30 añade un cero al principio, si es necesario. La línea 40 busca la longitud 
de la parte del número sustraido de la longitud total, es decir, dígitos después 
del punto decimal, si los hay. Esto se usa para determinar cuantos ceros/puntos 
decimales se han de añadir a la línea 50. La línea 60 imprime ambas versiones 
juntas para comparar. 
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(3) Alinear los puntos decimales 

Donde Vd. tiene cartas de números, un entendimiento visual se obtiene si los 
números están alineados de tal forma que los puntos decimales van uno detrás 
de otro. 


196 LET CANTIDAD=ANDx1800 
28 PRINT CANTIDAD 
35 GO TO 108 
1.129150% 
£5.61543 
937.139452 

739. 25269 
283.185803 
1539.34651 
201.55390658 
142.582513 

634 .533594 
7515316006 
6585.8755 
341.255665 

3594 .0556939 
556.584 77 


7866 .56096 
514 .53154 
2.91504 


Pd 
00 6 00 CM po 


Para alinear los puntos decimales, todo lo que se necesita es cambiar un poco la 
línea 20: 


19 LET CANTIDAD=AND:i1as0 

20 PRINT TAB _ 15-LEN STR% INT € 
ANT IDAD; CANTIDAD 

30 0 TO la 


169.93713 
746.231085 
967.62485 
571.59424 
570.05515 
254.345875 
756 .99585 
775.74155 
150.56243 
565.61279 
421.44775 
E09. 23767 
693.25782 
995.453762 
657.82156 
337.005652 
276.16582 
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2 55975 


¿Ve como queda todo más ordenado ahora?. Si desea alinear los puntos deci- 
males de los números formateados a 2 posiciones decimales contenidos en una 
cadena, no siempre puede usar el método de arriba porque la cadena puede ser 
afectada convergiendo con el VAL. Sin embargo, Vd. sabe cuántos lugares 
decimales habrán, así pues: 


20 PRINT TAB 1AS5-LEN P;P% 


Observe que algo sucede cuando los números llegan a ser tan largos que el 
STR$ comienza usando una notación científica. Naturalmente, a menos que 
Vd. esté tratando con cantidades mayores de cien millones, no debe preocu- 
parse. 


(4) Sobreescribiendo columnas de números 
Cuando tabula los números en columnas, es normal sobreimprimir números 
unos encima de los otros para poner al día los valores. Esto hace correr el riesgo 
de un valor que tenga un número diferente de dígitos de otro,dejándolos en la 
pantalla. Como un simple ejemplo, haga: 

ja FOR A=-118 TO 4 STEP -1 


24 PRINT AT 0,8, 
30 NEXT Pp 


Los números en la parte superior de la pantalla comienzan como números de 
tres dígitos, pero una vez los números llegan a ser números de 2 dígitos un cero 
permanece a la derecha de la columna. Esto podría evitarse imprimiendo unos 
cuantos espacios después del número. Naturalmente, si Vd. tiene gráficos/tex- 
to/otra columna de números naturalmente también serán borrados. 


Use esta rutina para imprimir sólo los espacios suficientes para alcanzar el nú- 
mero más largo (en términos de dígitos). La línea 20 debería tener en las comi- 
llas de impresión un espacio menos que el número máximo de dígitos a impri- 
mir. El número después del TO debería tener esa cantidad máxima de dígitos. 


10 FOR A=1108 TO Q STEP -1 

20 PRINT AT 9,0;A;" “tt TO S-L 
EN _ STR% A) 

34 NEXT A 
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RUTINAS DE LA ROM 


Hay un número de rutinas útiles en la ROM de 16K que pueden utilizarse en 
programas en código de máquina escritos por el usuario. Esta lista detalla algu- 
nas de ellas, pero de ninguna forma es exhaustiva ya que si no se hubiera con- 
vertido en el tema principal de este libro. Todas las direcciones que se 
relacionan están en decimal salvo que se indique otra cosa. 


Rutina 16 PRINT. El contenido del registro A es enviado al actual canal 
OUTPUT. Si el canal es otro, menos el que Vd. quiere hacer un PRINT, use 
la rutina en 5633 con el registro A que contiene el número del canal a abrir 
(normalmente la pantalla superior, canal 2). Vd. puede usar la rutina PRINT 
para hacer un OUTPUT de los caracteres de control igual que los caracteres 
normales a imprimir. 


949 BEEP. Esto hará sonar un ruido en el altavoz y zócalos de la cinta como el 
comando BEEP del BASIC. En la entrada a esta rutina, el par de registros 
HL deberían contener la frecuencia (los valores más inferiores dan una frecuen- 
cia más alta) y el par de registros DE deberían contener la duración de la nota 
(los valores más bajos dan duraciones más cortas). Observe que la frecuencia 
afecta a la duración de la nota de forma que si Vd. doblara la frecuencia y 
tuviera el mismo valor de duración, la nota no debería tener la misma longitud. 
Llamando a esta rutina repetidamente con una breve duración del BEEP de 
diferentes frecuencias, simularía diferentes tonos, incluso el control del envol- 
vente, algo que no es posible con el BASIC. 


3435 CLS. El uso de esta rutina es el mismo que el comando CLS del BASIC. 


3582 Deslizar la pantalla. El USR 3582 o el CALL 3582 deslizarán la pantalla 
hacia arriba una línea de caracteres sin que afecte a la posición PRINT o a la 
variable del sistema SCR-CT. Es muy útil para los juegos donde siempre se 
encuentra la acción del deslizamiento sin tener que usar algo así como: 


POKE 23692,255: PRINT AT 21,31” 

el cual fuerza un deslizamiento de la pantalla y suprime la indicación ”scroll?” 
3742 Dirección del comienzo de la lírea de la pantalla. Si el registro A se 
carga con el número de la hilera PRINT (0 a 23 pantalla abajo) el valor de HL 


como respuesta a esta rutina será la dirección de la línea de puntos en la parte 
superior de la pantalla en el primer carácter en esa línea. 
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3756 Igual que el comando COPY del BASIC. La parte interesante es que 
después de desactivar las interrupciones comienza a especificar cuántas líneas 
de la parte superior de la pantalla serán copiadas a la impresora. Así pues, Vd. 
puede reemplazar esta parte con su propia rutina para especificar cuántas líneas 
de la parte superior de la pantalla se han de copiar a la impresora. Este número 
debería estar en el registrador B. La rutina es ésta: 


DI : desactivar la< interrupciones 
LD B, número cuántas líneas a copiar 
CALL 3759 COPIELO a la impresora 


3789 LPRINT. Imprime lo que se encuentre en el buffer de la impresora a la 
impresora del ZX y reinicializa todo lo que concierne al buffer de la impresora. 


? 6683 Imprime el contenido del par de registros BC como un número deci- 


mal. Del 0 al 9999 son los valores permitidos ya que se usan normalmente para 
imprimir los números de líneas. 


7997 PAUSE El registro BC maneja el tiempo de espera en unos 50avos de 
segundo en Europa. Como el comando PAUSÉ del BASIC, este rato de espera 
termina cuando el tiempo de espera termina o se pulsa una tecla. Como el 
PAUSEO, si BC contiene el cero para la entrada, el registro C contiene la 
coordenada X y el registro B contiene la coordenada Y. El número en el re- 
gistro A denota qué bit de la dirección en el HL corresponde al eje X, Y de la 
pantalla. 


8252 PRINT bytes. Esta rutina imprimirá al actual canal de salida una cadena 
que comienza en la dirección que maneja el par de registros DE de la 
longitud almacenada en el par de registros BC. 


1 8855 color de los lados. Para cambiar el color de los rincones ponga el número 


del color en el registro A la llamada 8855. 


8874 Esta rutina le dirá qué bit o qué dirección en la pantalla corresponde al 
eje de la pantalla. En la entrada el registro C contiene la coordenada X y el re- 
gistro B contiene la coordenada Y. El número en el registro A denota qué bit 
de la dirección HL corresponde al eje X, Y de la pantalla. 


8927 rutina PLOT. El registro B debería contener la coordenada Y, el registro 
C la coordenada X en la entrada. Corresponde al PLOT X, Y. 
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9402 DRAW líneas rectas. Cuatro registros necesitan determinarse de la si- 
guiente forma, antes de la llamada de las rutinas. Cargue el registro B con el 
offset Y (valor absoluto) y cargue el registro C con el offset X (valor absolu- 
to). Entonces, los registros D y E tienen que contener un ] para offset-positi- 
vo 0 255 para offset-negativo (el SGN de los offsets). El registro D denotará el 
signo del ofíset X y el registro E el signo del offset Y. 
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TRES EN RAYA 


Este programa juega el juego de las tres en raya,en el cual el objeto es para Vd. 
o el computador tomar diferentes turnos para obtener tres Os o tres Xs respec- 
tivamente en la hilera de arriba, a través o en diagonal. Al contrario de muchos 
programas para jugar este juego, al computador se le puede ganar, pero no 
siempre. El programa juega defendiéndose, así que la mayoría de los juegos 
acaban con un dibujo. 


Cuando Vd. ejecuta el programa,éste le pregunta si Vd. quiere comenzar pri- 
mero. Conteste s si quiere empezar primero, o con una n sino. Asegúrese de 
que la tecla CAPS LOCK no está activada, pues el programa sólo reconoce 
letras en minúsculas. Si Vd. añade la línea: 


15 POKE 23658,0 


esto hará que el propio computador desactive el CAPS LOCK. El programa usa 
el INKEY$ para detectar las respuestas del teclado, así que Vd. no tiene que 
pulsar ENTER excepto cuando ejecute el programa. El tablero queda numera- 
do de la forma siguiente: 


Para hacer el movimiento, pulse la tecla con el mismo número que el cuadrado 
donde Vd. quiere colocar una O; el computador es siempre la X. Una vez haya 
hecho una línea ganadora, el computador dibuja una línea a través de esa línea 
y saca un mensaje destellante en la pantalla indicando quién ha ganado. A 
continuación verá algunos ejemplos: 
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¡HE GANADO! 


EMPATE 


HAS. GANADO 
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EM A RAYA 

Por liwyn Jones, 

POKE 2363, S* 

10 PRINT AT 0, 0; "SALES TU (Sm 


> 
20 LET a INKEY .. 
E Rs 1000, 
.. 1 T 
GO sUB 1000 HEN GO SUB 1060: 


40_ IF ul THEN GO SUB 10098 - 


90 GO SUB 1000: REM INICIAR Tu 
MOVIMIENTO 

110 PRINT AT 18,12;"TU JUEGAS" 
1206 LET A=CODE ÍNKEY $ - 45: 1F P<x 
1 OR A>9 THEN GO TO 128 
il IF BÉ(IA)1:<>" * THEN G0 To 12 


140 LET Bs$(A)="0" 
152 ERINT AT Y IR) XDD ¡BRA 
160 LET A$="000 

270 GO TO 668: REM GANAS? 

3500 REM JUGADA SPECTRUM 

310 PRINT AT 18,12; "MI JUGADA” 
315 LET Ag="XXX" 

320 IF B4U5S)=" ” THEN LET F=S: 
GO TO 560: REM MITAD TABLERO 

330 FOR B=1 TO 2 

340 IF B=1 THEN LET C%="XxX" 

550 IF B=2 THEN LET Cs$="00" 

368 RESTORE 420 

370 FOR A=1 TO 70 STEP 3 

360 READ D,E,F 

390 IF BS51D)+B$(E)=C0% AND B4(F1 
=" " THEN GO TO 56M: REM COMBINA 
CION GANADOR-HACER ALGO 


ITA 


34005 NEXT Pp 

410 NEXT E 

420 DATA 1,5,9,1,9,S5,5,9,1,3,S 
430 DARTR 2,5,/7,3,/3,7,/5,/1,2,3,3 
440 DATA 3,2,2,3,1,4,S,5,5,5,4 
450 DATA 4,6,5,7,8,9,7.9,5,9.6 
4606 DATA 7,1,4,7,4,7,1,1,7Y,4,2£ 
470 stos. o 
4304n ¿2,/0,D,32, 

500 REM MOVIMIENTO AL AZAR 
S38 FOR_As1 TO 

S3D IF BAIiD)»)=" ” THEN LET TS=0% 
+STRS A 

5408 NEXT 


560 LET BS$(F)3=" 
578 PRINT AT A, XiFI)¡DHiF) 


58 ET ABK="XXX 
630 REN COMPROBAR DUIEN GANA 
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540 == BESIDI+>EA E? 2835 (72 =9A3S TH 
2908 


650 NEXT A 

55B LET X=X+ 

5670 IF X=9 THEN 60 TO 38889 

680 IF Añh="XXX"” THEN GO TO 18u 
5699 1F A%="0D00" THEN 60 TO 308 
799 DATA 1,2,23,4,5,D/7,0/9,1,4 
710 DATA 7,2,5,8,/3,/6,2,1,5,9,3 

ATA 5,7 


730 STOP 
500 REM EMPATE 
Ed 3,-1808 
AT_ 18,12; ss 


INT 
Ar ET ER FLASH ¡PRE MPATADOS! * 
328 STOP 
399 REM GANAR 


313,10 as THEN PLOT 39,131: DR 
328 ¿F n=2 THEN PLOT 88,99: DRA 
225 IF A=3 THEN PLOT 80,87: DRA 
az Ír ase THEN PLOT 91,143: DR 
332" IF A=S THEN PLOT 123,143: D 
lo ir As THEN PLOT 155,143: D 
Sis iF A=? THEN PLOT 77,143: DR 
350_ip A=3 THEN PLOT 169,143: D 


957 SPRINT AT 139,12;" Re 
369 IF As="000"7 THEN FOR X=55 T 
D 18 STEP -—-1: BEEP_0.03,X: NEXT 

X: PRINT AT 2,12; FLASH 1;"HAS G 


A pt 

2965 IF To THEN _ FOR Z=18 TY 

2,13; FLASA 1i 1; E DAÑA dl 
+, . 

375 ¿Top ñ da 

1000 REM INICIO PANTALLA 

1010 BORDER 6: PAPER 6: CLS 

30620 PRINT AT JETTA 2 3"; A 


7 ¿9112,"4 5 BAT 13,11;"7 
1025 INK 4 

1930 PLOT 30,115: DRA 90,0 
i649 pLoT 28 83; DRAWY 90,8 

1930 07,143: DRAU 06,-98 
1860 PLOT, 136: 143: DRAW 0,-98 
18079 INK 

2204 REM INICIAR UARIABLES 

3010 DIM B34(9): REM TABLERO 

2020 LET X=80: REM CONTADOR DE MO 


UIMIENTOS 
2059 DIM X(9): REM X CODRDENADAS 
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DIM Y(9%1: REM Y COORDENADAS 
RESTORE 26498 

FOR A=1 TO 29 

RERAD X(1A) ¿Y (A) 


DATA 11,5,15,5,19,5,1 


1 
DATA 3,19,9,11,13,168,13 
DATA 13 
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INVASORES 


Un ejército de extraterrestres descienden. Vd. debe prevenir que no aterrizen 
a toda costa o destruirán la Tierra. Debe enfrentarse a ellos solamente armado 
con su pistola láser y protegido por unas cuantas defensas. Los extraterrestres 
se le acercan en formación de batalla disparándole con sus misiles con bastante 
puntería. Tiene que evitarlos a toda costa o esconderse detras de sus defensas, 
pero tenga en cuenta que después de dispararles se evaporizan. Apunte al ex- 
traterrestre y vaporícelo disparándole con su cañón láser; verá al alienígena 
que cambia de color al recibir el disparo. El láser hará lo mismo con sus defen- 
sas así que procure no destruirlas!. Vd. no puede ganar — le cogerán pero trate 
de hacer una puntuación más alta que nadie. Use el 5 (cursor izquierda) para 
moverse a la izquierda, el 8 (cursor derecha) para moverse a la derecha y el 7 
(cursor arriba) para disparar su cañón láser contra los extraterrestres. Si alguno 
de ellos desaparece en el eje de la pantalla, reaparecerá en lado Opuesto, así 
que no se lo permita. 


PUNTIACIÓN: 0 
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1 REM INVASORES 
5 Di 


1606 0 suk 2200 

20 GO SUB 2548 

38 FOR D=1 TO 7 

34 LET Cs="_ E ES 


35 PRINT INK 2;AT 138,0;C05$ 
40 _LET AS="%E e € E bd 


70” PRINT AT 5,108;D 

50 FOR B=D+9 To 19 STEP 2 

85 IF do THEN LET C%=RB5%: PR 
INT_ AT > a; 

90 FOR 210 

100 LET BsAs al) pel TO S21 

110 FOR =09 DI 

111 IF A AND _ RND<.as 
AND NOT BOMBY THEN LET e OMByzB: 
LET BOMBX=X 

112 IF BOMBY>18 AND BOMBX=X THE 
N GO TO 3500 

113 IF BOMBY THEN GO SUB 30044 

120 _LET A A AND Xx<3 
1) CINKEYS=> AN ) 
130 PRINT ar B,0a; TNK 4;9A%; INKH 
q. 209,C;' ANÓ Cx3X; AT 22,x; 


140 br AR=ar THEN 60 TO 246 
160 IF INREY$=">7" THEN GO SUB 4 


1740 NEXT a 

130 NEXT 

190 PRINT AT B,0;85% 
EXT_B 


10 PRINT PAPER _ 2; FLASH 1;¿AT Y 

STE HAN INVADIDO" 

358 NEXT D 

= 

269 LET DIF=DIF-1: IF DIF:<S THE 
N A DIF=28 

GO TO_30 

380 DRA 255,0 

19000 REM HACER RUIDO 

1920 a de BEEP .01,40 


1100 RETURN 

2000 REM MAS RUID 

2010 FOR A=8 TO 21 STEP 2 
2020 BEEP 0.01, (409- (A/2)) 
20309 NEXT _A 


RETURN 
3000 REM BOMBAS 
TE LET_BOMBY=BOMDY +» 
15 IF BOMBY=21 THEN PRINT AT Ba 
OMBY 1, BOHBX; * ": LET BOMBY=B: R 


3020 E BOMBY=18 AND CK(BOMBX>+1) 
="N" THEN GO SUB 310€ 


:Q 
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3039 E eS -1>B THEN PRINT AT 


MBY-1,B0OMBX; 
3840 17 ' *BOMBY” THEN PRINT AT BOMB 


3135 GO SUB 100 

3140 RETURN 

3500 REM DISPARO 

3510 PRINT AT BOMBY,BOMBX;" ";AT 
20,X; FLASH 1; INK 7;"A": GO SU 
5 20808: PRINT AT 21,0; "DESTRUIDO 
» «|IOROQROROnH! 

3520 STOP 

40069 REM DESTRUIR BLINDAJE 

4910 IF C$(X+1)=" " THEN GO TO $ 


4924 INK_9 
4039 PLOT _Xx9+3,16: ¿DRAA Qq,3a 


á LET_CHA(X+ 1i= 
2859 ci SUER 1, X18+3, 16: DRAG 


,3 
4055 di? ¿UB 1000 
4060 PRINT AT 18,X;" 
4070 INK 6 
5400 REM FUEGO LASER 
5905 IF AFI(X+11="R" THEN LET_PUN 
TOS=PUNTOS+1: IF PUNTOS>999 THEM 
LET PUNTOS=0 
INK 9 
5020 PLOT Xxx8+3,16 
5030 DRAW 4, (197B1:%8 
5040 OLER 12 
5058 PLOT X28+3,16 
5860 CRA 8, (1928) x8 


5085 GO_SUB 1908 
5090 LET AGIX+1)=" " Ñ 
5095 PRINT AT 5,29; INK 6¡PUNTOS 
510 
3000 REM ANICIALIZACION YA 
9010 RESTORE 24350 
29020 FOR C=0 a Ed 
30309 RERD A, 
3028 PORKE USR “an+c,A 
9050 POKE USR "B"+C,B 
9068 NEXT C 
9959 DATA _66,16,60,16,99,498,126, 
49,60,68,24,63,36,186,66,198 
9109 RETÚRN 
9500 DaPE a 
3510 PRP [ra] 
29520 BORDER 4 

CLS 


3540 INK 3 
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9559 PLOT Q,139 
395894 DRA 255,0 
3578 PLOT 0,124 


9598 INK 6 
9688 PRINT FLASH 1;AT 2,10; INUA 
SORES" 


2610 PLOT Esa 161 


363080 DRAL ó, ¿11 

35640 DRA -7S5,09 

3659 DRAV_O, 11 

39669 PRINT AT S,1;"Pantalilia:M”, Y 
AB 22;"Puntos=04" 


3670 DIM As(32) 

35580 DIM B4(32) 

239690 DIM C$4 (32) 

3695 LET BOMBY=4: LET BROMBEX=48 
39696 LET X=INT— (RNDF32): LET C=X 


3705 LET DIF=20 
37/18 RETURN 


El programa necesita 12K incluyendo la pantalla, variables, el programa y los 
gráficos definidos por el usuario para poderse ejecutar, así que es suficiente 
para el Spectrum de 16K. Es un juego escrito en BASIC, que usa varios colores, 
gráficos de alta resolución, gráficos definidos por el usuario y sonido para exci- 
tar la acción rápida. Tienen una facilidad de puntuación , lo cual suministra un 
elevado sentido de competición. El uso extensivo está compuesto de cadenas 
para un manejo de datos más rápido y los comandos PLOT, DRAW y OVER 
se utilizan para dibujar y borrar líneas. El programa en sí está contenido en las 
líneas 30 a la 300 y el resto del programa son principalmente subrutinas para 
llevar a cabo varias funciones. Todas están remarcadas con REMs para poder 
identificarlas. Todo lo que esto necesita añadir es observar los caracteres gráfi- 
cos en cada línea: 


34: gráficos SHIFT 8 
40: gráficos A 
111: gráficos A 
130: gráficos B 
3020: gráficos SHIFT B 
3510: gráficos B 
5005: gráficos A 
9000: gráficos A seguidos por gráficos B 


Si Vd. intenta cambiar el programa, observe que ha sido escrito para ser rápido, 
así pues, procure no hacerlo más lento. Los comandos de sonido en la subrutina 
1000 deben mantenerse muy cortos; unos 0.95 segundos máximo. Haga lo que 
Vd. quiera hacer con la otra subrutina de sonido, ya que sólo sucede al final del 
programa cuando Vd. ha sido derrotado, ¡es más larga para hacerle sentir más 
humillado! 
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SUPER SONIDOS 


En BASIC las facilidades de sonido del Spectrum son limitadas para crear una 
sola nota de una duración fija y frecuencia como: 


BEEP duración, frecuencia 


La podemos extender un poco tocando varias notas cortas y muy deprisa una 
después de la otra, por ejemplo: 


140 FOR A=08 TQ 21 
20 BEEP 0.1, (40- (A-2)2) 
30 NEXT A 


Sin embargo, debemos llegar a la conclusión de que para producir cualquier 
sonido más complejo, el BASIC es incapaz de ello. Incluso cuando estamos en 
lenguaje de máquina, todavía estamos limitados a controlar la frecuencia y la 
duración de un sonido. Sin embargo, lo que sí puede hacer el código de máqui- 
na es incrementar el proceso de tal forma que podríamos oír una secuencia de 
notas, una después de la otra, tan de prisa que pasaría a convertirse en una nota 
larga. Y si nosotros miramos de arreglar un poco estas notas, podríamos conse- 
guir notas normalmente imposibles (algo similar a los discos pop). La forma de 
hacer esto es usando la rutina de la ROM que normalmente maneja el coman- 
do BEEP repetidamente llamando con muy pocas notas el cambio de frecuen- 
cias. Aquí hay un diagrama para ilustrarlo: 


inicio de frecuencia, duración del inicio 


llamada a la rutina ROM 


recuperar los valores de la frecuencia 


cambiar la frecuencia 
si la frecuencia no ha alcanzado el valor límite, vuelva a por más. 


fin de la rutina de sonido. 


Aquí hay un programa en código de máquina que nos permitirá hacer esto. Si 
Vd. no entiende el código de máquina o lenguaje assembler, se le darán el 
máximo de instrucciones para que Vd. pueda ejecutar las rutinas en su Spec- 
trum de 16K o de 48K. Estos sonidos pueden utilizarse en cualquier programa 
si Vd. procura añadirle estas rutinas: 


HEXA- 

DECIMAL DECIMAL ASSEMBLER NOTAS 

D6 DA 6,10 LD B,10 :contador de repeticiones 
[0%] 197 COUNT; PUSH BC ¡salvar contador en stack 
210000 33,0,0 LDHL,9 ¡inicio de frecuencia 

21 64 00 17,100,0 LOOP ¡LD DE,100 ¡duración de un sonido 
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ES 229 PUSH HL ¡salvar el valor de la frecuencia 


CD B5 03 205,181,3 CALL949 ¡llamada a la rutina ROM BEEP 
01 14909 1,20,0 LD BC,20 ¡salto de frecuencia 

11 64 00 17,1990,0 LD DE,109 ¿valor límite de frecuencia 

El 225 POP HL ¡recuperar frecuencia del stack 

C6 00 198,0 ADD AD recuperar flag de acarreo 

ED 44 237,74 ADC HL,¡BC ¡nuevo valor de frecuencia 

ES 229 PUSH HL ¡salvar nueva frecuencia en el stack 
C6 00 198,0 ADD A,2 ¡recuperar flag de acarreo 

ED 52 237,82 SBC HL,DE ¡comprobar frecuencia límite 

El 225 POP HL ¡recuperar valor de frecuencia 

38 E6 56,230 JR C,LOOP (JR C, -26) s¿límite de frecuencia alcanzado? 
Cl 193 POP BC ¡recuperar contador de iteraciones 
10 DF 16,223 DJ NZ,COUNT (DJ NZ, -33) ;¿más repeticiones? 

C9 201 RET ¡retornar al BASIC 


Saltos relativos le han sido mostrados en assembler ya que ambos saltan a nive- 
les de saltos de claridad y relativos (menos) para propósitos prácticos. Los valo- 
res que se dan a los números cargados en los registros son ejemplos. Los mar- 
cadores a lo largo del assembler nos indicarán lo que allí sucede. 


Por encima, la rutina anterior, de 36 bytes, toma una nota de frecuencia HL y 
duración DE y la hace sonar repetidamente con frecuencia descendente hasta 
alcanzar el valor límite, repitiéndose el proceso el número de veces especifica- 
do. Observe que con el uso de la rutina ROM BEEB de esta manera, la dura- 
ción depende de la frecuencia (se debe de pensar en número de ciclos en vez de 
en duración). Una frecuencia más elevada conlleva un período más corto. 


Tanto la frecuencia como la duración pueden comenzar con un valor de 1, que 
corresponde a la frecuencia más alta y la duración más corta respectivamente. 
Cuando se aumenta el valor de ambos el resultado será un tono bajo de una 
duración excesiva y, normalmente, poco útil. Lo que haré es darle un cargador 
de código máquina en valores decimales, el cual depositará dichos valores, con- 
tenidos en líneas DATA mediante POKESs por encima de la RAMTOP. Se 
necesitan reservar 36 bytes para una de estas rutinas. Sugiero para los usarios de 
la máquina de 16K un CLEAR 32563, de modo que la rutina comenzará en la 
32564. En máquinas de 48K le sugiero que la primera línea del programa sea 
CLEAR 65331 para que la rutina comience en la 65332. Los dos listados si- 
guientes son para las máquinas de 48K y 16K respectivamente: 


1 REM CARGADOR DE SONIDOS 4%x 
38 CEP BRE SS tono =o 
= =653 : j 
IN=1060 N 5332 LET F 
e BYTE: 1F BYTE=FIN THE 
49 IF BYTE>255 THEN STOP 
50 POKE DIRECCIONS,BYTE 
50 LET DIRECCIONS=DIRECCIONS +3 
70 GO TO 30 
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i REH A SONIDOS 16K 
CLEAR 
38 LET DIRECCIONS=32564: LET F 


33 Reno BYTE: IF BYTE=FIN THEt 
sTu 
28 IF EYTE>255 THEN STOP 
50 POKE DIRECCIONS ,BYTE 
60 LET DIRECCIONS=DIRECCIOMS+:1 
a O TO 30 


La línea 10 coloca la nueva RAMTOP en lugar en que irá el código de máquina. 
Este valor deberá de ajustarse en caso de que se tenga que poner más código de 
máquina (por ejemplo, si se combina más de una rutina, cada una de las cuales 
necesitaría 36 bytes adicionales). Para determinar este valor vea cuál es el nú- 
mero en la variable del sistema RAMTOP (normalmente es 32599 para el Spec- 
trum de 16K y 65367 para el de 48K) a continuación reste el número de bytes de 
la rutina en lenguaje de máquina (por ejemplo, en un Spectrum de 16K tendría- 
mos 32599-36=32563), de esta forma la rutina arranca en la posición inmediata- 
mente posterior al nuevo valor RAMTOP. En la línea 20, ADDRESS es el 
lugar donde comienza la rutina, a continuación de RAMTOP, tal como se ha 
dicho. La variable END se usa como marcador de fin de datos en la lista DA- 
TA. Ello quiere decir que los números a POKEar deben tener un valor entre 0 
y 255, de modo que al leer un valor mayor que 255, se asumirá que se ha llegado 
al final de la lista. Se podría hacer simplemente poniendo cualquier número 
pero la asignación de una variable da una indicación más clara de su utilización 
(observe que no todos los computadores pueden leer el contenido de un nom- 
bre de variable colocado en una lista DATA). Ello se hace en las líneas 30 y 40. 
La línea 50 coloca los bytes del código de máquina en su lugar de la memoria, la 
línea 60 incrementa la dirección del siguiente byte. 


A continuación veremos algunos ejemplos de los sonidos que se pueden gene- 
rar. Los listados corresponden a sentencias DATA que se deben de utilizar con 
el programa cargador. Todos contienen 36 bytes del mismo código pero con 
diferentes frecuencias, repeticiones, etc. Teclee las sentencias DATA que Vd. 
haya elegido y ejecute el programa cargador. El programa debe de finalizar con 
un 9 STOP, 30:3. Si no sucede así y Vd. no ha hecho ningún cambio en el 
programa, es que hay un error en algún lugar. Grabe el programa en cinta para 
evitar perderlo mientras se ejecuta debido a algún error. Cuando ya esté listo 
para escuchar los sonidos, una vez el código de máquina esté listo (ésta es la 
mejor manera de saber si todo funciona tras haber salvado el programa en cin- 
ta), se pueden usar los siguientes comandos para ejecutar el código de máquina: 


LET A=USR 32564 (Spectrum de 16K) 


LET A=USR 56332 (Spectrum de 48K) 
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Naturalmente, Vd. podría haber utilizado algo como RANDOMIZE USR 
65332, pero ello puede afectar a la aleatoriedad de los números generados si, 
como es de suponer, estos sonidos se van a utilizar en juegos. Como cosa intere- 
sante, donde Vd. vea una llamada a código de máquina utilizando RANDOMI- 
ZE y en el programa se usen números aleatorios, podría utilizarse RANDOMI- 
ZE (0*USR nnnmn) (lo cual equivale a un RANDOMIZE 0). Volviendo a nues- 
tro tema principal, he aquí algunos listados con sentencias DATAS par obte- 


ner sonidos: e PEEY 2 , EEK PEER LACAN 


28 REM BOMBAS CAY 

99 REM LISTA ÉAIAS SUNICO 

1060 DATA 6,1,197,33,0,0,17, 

110 DATA 4,229,285, 181 51'50,0 
120 DATA 17,8,12,225,198,0,237 
130 DATA 74,229,198,0,237,82 
140 CATA 225, S6,230, 183, 16, 223 
158 DATA 201,FIN 


98 REM FUEGO DE LASER 

299 REM de DATOS SONIDO 
1009 DATA 11,197,33,0,0,17,1 
110 DATA 0/325 268 181.8, 1,1 
120 DATA 17,100,1.225,196.0, 


130 DATA 74.229,198,0,2537,82 
140 DATA 225,56,2380,1939,16,223 
150 DATA 201,FIN 


2 
237 


38 REM FUEGO LASER REPETIDO 
99 REM _ LISTA DATOS SONIDO 

liga DATA 6,18,127,33,0,R. e 
110 DATA Q, 220,208,181,3,1 ¿1,8 
120 DATA 1>, 100,1, as 193,804,237 
129 Bera 2e6-S8raSa:63 1608 

238 
150 DATA 201,FIN 193, 16,223 


23 REM RASCAR 

399 Sita e le DATAS SONIDO 

120 TA 6,1,197,33,0, =A 1,1 
110 DATA 0,229, 205, isi, .1, 100, 


120 DATA 17,0,30,225,198,0,237 
130 DATA 74,229,195,0,237,852 
140 DATA 225, EA AS 143, 16, 225 
150 DATA 201,F 
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383 


39 
190 
1109 
129 
1389 
i48 
150 


$8 Je fo Ja Jus po 
Ne*OAN-+OD0D 
00030000 


Y ha $ ¿a ps pa 
OU*O0vUr-o000 
006 ABDODI 


REM MAQUINA EXTRATERRESTRES -—— 


REM_LISTA DATOS SONIDO 

DATA 6,20,197,33,08,4,17,1 
DATA 4,2239,205,1521,5,1,50,0 
17,0,6,225,199,0,237 
DATA 74,229,193,0.237,52 
DATA 225,56,230,193,16,2253 


DATA 201,FIN 


REM SONIDOS E 
EÁPastERJIOSOS 


REM LISTA SONIDO 
DATA 5,5,197,33,0,18,17,10 
DATA 6,2292,205,181,3,1,M,2 
DATA 17,0,19,D258,1828/D,D2> 
DATA 74,229,198,8,227,82 
DATA 228,56,239,193,18,223 
DATA 2081/END 


REM A 

REM Pre-EP aros SONIDO 

DATA 6,108,197,33,0,0,17,100 
DATA 0,229,205,151,3,1,0,1 
DATA 17,0,3,225,198,9,237Y 
DATA 74,229,195,0,237,82 
DATA 225,56,230,195,16,223 
DATA 281,FIN 


REM  RESTELLO DEL LASER 

REM LISTR DATOS SONIDO 
DATA 56,25,197,53,0,0,17,6 
DATA 0,229,285,181,3,1,56,89 
DATA 17,W,1,225,19D,0,2237 
DATA 74,2E£3,1988,0,297,892 
DATRA 225,56,250,193,16,223 
DATA 201,END 


REM SINTETIZADOR. *PEEDU* 
REM _ LISTA DATOS SOMIDO 
DATA 6,1,197,35,08,0,17,5 
DATA 4,229,2085,1381,3,1,1,8 
DATA 17,08,1,225,198,0,237 
DATA 225,56,230,193,16,223 
DATA 201,FIN 
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98 REM PAJARO 

99 REM LISTA DATOS SONIDO 
108 DATA 56,14,197,33,08,0,17,48 
1108 DATA 0/229,205,181,3,1,2 
1208 DATA 17,248,9,225,195,4,237 
138 DATA 74,229,195,4,237,82 
110 DATA 225,56,2380,193,16,223 
158 DATA 281,FIN 


Después de estar acostumbrados a utilizar la sentencia del BASIC BEEP, los 
sonidos que se obtienen mediante este procedimiento nos producirán una feliz 
sorpresa. Lo único que esta rutina no puede hacer es generar un tono de fre- 
cuencia ascendente. Normalmente ello no es problema ya que el sonido se repi- 
te tan rápidamente que no se nota. Si Vd. desea específicamente una nota de 
frecuencia ascendente, he aquí otra versión de la misma rutina que lo consigue: 


DECIMAL DECIMAL ASSEMBLER NOTAS 

6 01 6,1 LD B,l :contador de repeticiones 

Cs 197 REPT; PUSH BC ¡salvar contador 

21 E8 03 33,232,3 LD HL,1090 sinicio de frecuencia 

11901 00 17,10 LOOP;LD DE,1 ¡duración de un sonido 

ES 229 PUSH HL ¡salvar la frecuencia 

CD B5 03 205,181,3 CALL949 ¡llamada al BEEP en la ROM 
El 225 POP HL ¡recuperar frecuencia 
010100 1,19 LD BC,1 ¡cambio de frecuencia 

C6 PO 198,0 ADD A, ¡recuperar flag de acarreo 

ED 42 237,66 SBC HL,BC ¡nueva frecuencia 

30 EF 48,239 JR NC,LOOP (JR NC, -17) ;¿más de ese sonido? 

Ci 193 POP BC ¡recuperar el contador de iteración 
10 E8 16,232 DJ NZ,REPT (DJ NZ, -24) ;¿más repeticiones? 

C9 291 RET ¡retornar al BASIC 


Esta rutina sólo tiene 27 bytes de longitud y carece de la característica ”frecuen- 
cia límite”, significando ello que sea cual sea la frecuencia con la que arranque 
el tono, siempre finaliza en la más alta. Esta rutina se puede incorporar en 
sentencias DATA de la misma forma que las anteriores. Aunque se desperdi- 
ciarán unos cuantos bytes, cosa que si le preocupa, se puede solucionar cam- 
biando la sentencia CLEAR en la línea 10 del programa cargador. No obstante, 
dejándolo tal como está tiene la ventaja de que el cargador es estándard, sir- 
viendo para ambos tipos de rutina. Si desea que esta rutina tenga la misma 


longitud que la anterior, se pueden rellenar con ceros (NOP) hasta el final de 
DATA. 


20 REM TONO ASCENEDENTE 

399 REM LISTAR DATOS SONIDO 

189 DATA 5,1,197,33,232,3,17,1 
119 DATA 8,229,205, 181,3,225; 
128 DATA 1,08,198,9,237,66,48 
138 DATA 239,193,16,2352,281,FIN 
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98 REM TONO ASCENDENTE RAPIDO 
399 REM LISTA DATAS SONIDO 

100 DATA 6,1,197,33,232,2,17, 
118 DATA 04,229,205,181,3, ¿LES 
120 DATA 164,8,198, $237 

139 DATA 224,193,16, est? FIN 


Ahora la siguiente cuestión consistirá en ver cómo añadir estos sonidos a nues- 
tros programas. Ello supone un poco de complicación para aquellas personas 
que no tengan experiencia en lenguaje de máquina, lo siento. Existen tres 
opciones principales: 


(1) Incorporar un programa cargador junto con las sentencias DATA dentro de 
su programa. Cuando el programa se ejecuta (utilizando SAVE LINE, sólo se 
tendrá que prepatar la máquina una vez ya que los subsiguientes RUNSs ejecuta- 
rán el programa sin activar el código de máquina nuevamente). Ello puede 
tomar la siguiente forma: 


9900 REM programa cargador 
9950 REM sentencias DATA 


9999 GOTO 1 


Este programa se deberá de grabar con SAVE ”programa” LINE 9900. 


(2)Entrar el código de máquina a mano y grabarlo en cinta utilizando SAVE 
CODE, después el programa que lo necesite lo puede recargar. Un ejercicio 
que consume tiempo. 


(3¡Almacenar el código en sentencias REM dentro del programa. Las senten- 
cias REM se graban en cinta como líneas a mezclar dentro del programa que 
requiera los sonidos, a continuación el conjunto se puede grabar en cinta de 
forma que el resultado es un programa listo para funcionar contenido en el 
cassette. Este procedimiento es el que producirá las cargas y ejecuciones más 
rápidas. A continuación veremos un programa hecho con este procedimiento 
que contiene los doce sonidos que hemos visto. Recuerde que cada rutina es de 
36 bytes de longitud y ya que hay doce, necesitaremos una sentencia REM con 
por lo menos 432 caracteres (12*36) tras la palabra REM en una línea. Esto 
significa un montón de escritura en el teclado, así que asegúrese de que sus 
dedos están afilados y engrasados para entrar el programa. 
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Las líneas de la 10 a la 60 contienen el programa cargador. El resto son senten- 
cias DATA que contienen el código de máquina para los diversos sonidos. Na- 


turalmente, se 


pueden omitir las sentencias REM ya que sólo sirven para indi- 


car dónde comienzan los DATA para cada sonido. Observe que sólo se utiliza 
una variable FIN al final de toda la lista. Este programa significa mucho tecleo y 


hay que vigilar 


que todo esté correcto ya que nada funcionaría si se produce un 


solo error. Una vez lo haya entrado, grábelo inmediátamente en cinta ya que el 
más mínimo error puede hacer que el programa se pierda al intentar su ejecu- 


ción. 


pa 


a 
[0] 


Wip. 2 0< 2. ..0x.u.0..0<0........ 


079 


Y 
m 


Mon. ... 0. 0.0..0000.0.-.0..0.02.2.0%é%8 2 
conasnonarnanasssoaaaaaaaoaoaooo ooo se 
LET DIRECCIONS=PEEK 23625+2 
EEK 2353645: LET FIN=108€08 
READ BYTE 
IF BYTE>255 THEN STOP 
POKE DIRECCIONS,BYTE 
LET DIRECCIONS=bIRECCIONS>+1 
GO TO 28 
REM_BOMBA, CAYENDO 

DATA 5» ¿197 ¿8,17,1 
DATA E ¿265 81% 1:28 
DATA 225,1%8 27 
DATA 54255 2:55 0 ES 
DATA Zñe: 56, “238 Saz 15% 323 
DATA 
REM FUEGO DEL LASER 
DATA 6,1,197,33,8,B,17,1 
DATA 8,229 265 181,5,1.1,9 
DATA 17,180,1 i98.6,£37 
DATA 74,229; “168,3 ¿SÉ 
DATA 2258,55,238, E 16* 223 
DATA 281 
REM_PUEDO LASER REPETIDO 
DATA 0/22 206 182:3.1 4.8 
DATA 3672 538 - 156. é, ¿437 
DATA 74 229.168. a' 


DATA 225,56,238,1893, EE 223 
DATA 201 
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REM_RASCAR 
DATA 6,31,197,33,0,18,17,1 
DATA 4,229,205,181,535,1,140, 


DATA 17.9,38,225,198 237 
229 39,1923,0,227?, o 
ATA 23658 6,2580,1%3,16,223 


DATA 
REM MADUINAS EXTRATERRESTRES 
DATA 6,248,197,33,8,4,17,1 


A 74,229,1928,0,2 2 
DATA 225,56,2398, 183, 16, 223 


DATA 281 

REM SONIDOS MISTERIOSOS 
DATA 6,5,197,33,8,18,17,19 
ATA 8,223,265, 181,3,1,0, 
DATA q e,19,225,198,8,237 
DATA 74,225,198,4,237,82 
DATA 225,56.238,193,16,223 

DATA 201 

REM_ ALARMA 

DATA 6,18,197,33,8,8,17,188 
DATA 4,220,245,1831,/3.1,0,1 
DATA 17,8,3,225 é é £3 5 

DAT 229; 


2 
: o /193, E S23 


pArA 74,229, 108/8,247/82 
228,56,2398,103,16,223 


DA 201 
REM _ SINTETIZADOR “*PEEQU”" 


po] 


17,8, i 
DATA 74 259/1898; 8,237, 
DATA a ,.56,230,193, 16, 223 


REM _ PAJARO 

DATA 6,14,197,33,9,0,17,48 
DATA 06,228,206,181,3, 1,85, 
DATA 17-246.0,225. 196.6 ¿237 
DATA 228,56,238, 193,16,223 
REM _ TONO AS 


DATA 2:3.183.8,237, 3,225; 


ATA 1,1 
DATA 0, 229, 285, is1, 3, 225,1 
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5398 DATA 10,0,193,0,237,66,48 
399 DATA 23%, 193, 18: 232, 201 
3918 DATA 201,FIN 


Tras grabar el programa anterior en la cinta, ejecútelo (RUN) para activar el 
código de máquina, ello tomará algunos segundos y finalmente se detendrá con 
un 9 STOP 30:2. Para comprobar si todo está correcto, utilice el comando 
PRINT ADDRESS, que debe de dar un valor 24183. Esto trabaja solamente si 
Vd. no tiene enchufado ningún módulo de expansión, etc., ya que entonces el 
programa comenzará en una dirección diferente. La comprobación final consis- 
te en ejecutar el código de máquina (por esto es por lo que le he dicho que salve 
el programa en cinta una vez lo haya tecleado). Introduzca el siguiente progra- 
ma de comprobación antes de borrar cualquier línea: 


10 1, DIRECEION= PEER EIA 
DRPE DOE 

ii A=SDPIRECCIÓN TO DIRECCIO 
+42: FR 365 

13 ¿UMIZE USER A 

13 E 20 

14 A: 3TOP 


Si todo está correcto, se deberán de escuchar los doce sonidos, separados, cada 
uno de ellos, por una pausa y el programa se detendrá normalmente en la línea 
14. Si todo está correcto, Vd. puede seguir adelante y borrar todas las líneas 
excepto la 1 REM y salvar esta línea en la cinta. Esta línea es la que Vd. añadirá 
a sus futuros programas de juegos. Ahora lo único que resta es invocar cada 
sonido conforme se necesite. Todos aquellos que no tengan módulo de expan- 
sión, no saben cuán felices son ya que pueden llamar a la dirección apropiada 
debido a que el REM queda fijado en la memoria. La tabla siguiente indica las 
direcciones a invocar. 
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NUMERO USR 
DEL SONIDO | ADDRESS | SONIDO 


Estallido de bomba 


pu 


Disparo laser 

Disparo laser repetido 
Rasgadora 

Platillo volante 
Sonidos miteriosos 
Alarma 


Rayo laser 


2 
3 
4 
5 
6 
7 
8 
9 


Tambor 


. 
a 


Pájaro (o viendo las estrellas!) 


n 
pam 


Tono ascendente 


h 
159) 


Tono ascendente rápido 


Esta tabla de direcciones probablemente no funcionará con aquellos Spectrums 
que tengan mapas de microdrive, etc.,por debajo del área de programas. Por 
ello le sugiero que invoque a la rutina apropiada mediante PEEK 23635/6 y 
añadiendo al resultado el número apropiado de bytes. Este trabajo resulta bas- 
tante tedioso, por lo que le sugiero que utilice una FN para que haga los cálculos 
por Vd.: 


DEF EN U(N)=PEEK 23635+256*PEEK 23636+4+5+36*(N-1) 


Inclúyala como línea 2 y salve el programa junto con la línea REM. Cada vez 
que Vd. desee escuchar uno de los sonidos (por ejemplo, el sexto), haga lo 
siguiente: 


LET U=USR FN U(6) 


Debido a que los sonidos se utilizan normalmente en juegos, es mejor asignar el 
número retornado por la función de una llamada USR a una variable en vez de 
utilizar RANDOMIZE USR ya que ello afectará a los números aleatorios gene- 
rados por el RANDOM. A continuación veamos un ejemplo de cómo utilizar 
USR FN: 
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iz 
cn 
YET 


> A CON USR FNINi 
DSR FN UCA) 


Ti Qu al 
Y 
HA 


Tin 


He aquí un programa gráfico de ejemplo que muestra cómo utilizar los sonidos. 
Suena una alarma cada vez que se acerca un platillo volante. En su primer paso 
destruye una base dejando caer una bomba sobre ella y en el segundo paso, la 
segunda base dispara. Un ejemplo bastante violento pero representa una útil 
demostración de los sonidos. Funciona permanentemente hasta que se corte 
con BREAK. Espero que todo esto le animará a experimentar en la creación de 
sus propios sonidos. 


2>DEF FN UINI=PFEEM 23D35+Z5b+*+ 
RES SIB IDA IN—22 
REM SOUND N UITR DF EN N? 

102 PRINT RT 15, 12; ¿AT 1 
5,29; ** malla" : REM BÁSE 

195 PRINT AT 0,8; FLASH 1; "UFO 
RPPROREHING" 

118 LET R=USR FN Ul(7i;: REM ALAR 


H 
3115 PRINT RT 0,3;" 
1292 FOR A=9_TO 308 


130 PRINT_ AT S5,A; 2 
140 IF AS THEN áo Fo 130: REM 
NEXT 


158 IF_A=S THEM_LET R=USR FM Uf 
12): PRINT AT 6,5;”" 1": REM DROP 


ER IF A>5S AND Ac24 THEN PRINT 
AT_R.A-1;" "¿AT AJA: "1? 
170 IF A=14 THEN PRINT RT A,A-1 
ES ; +43 15,12; FLASH 153 OSGER 1;” 
LEFT R=USR FN UL212: PRINT 


A 
135 PRINT AT 5,31;" ” 
186 PRINT AT 0,8; FLASH 2; "UFO 
APPROACHING" 
187 LET R=USR FN Uli7): REM ALAR 


138 PRINT AT QM,8S;”" 


198 FOR A-=0 TO Z12 

2908 PRINT_ AT 5,A," >” 

219 NEXT RA 

228 PLOT 179,56: DRRUY 0,75 

225 LET R=USR FN U(8S) 

230 PLOT OVER 1;179,56: DRAW OU 
ER 10,75 

248 PRINT AT 5,22; FLASH 1;”> 

250% LET R=USR FN Ult4) 

255 PALISE SA 

264 ECL5 : 0 TO 100 
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LABERINTO 
TRIDIMENSIONAL (16K) 


¿Qué tal un paseo por dentro de un laberinto en el cual Vd. puede ver los muro: 
y corredores en un glorioso efecto tridimensional?. Si Vd. se pierde por dentr« 
de un corredor sin final, consulte a su computador para que le ayude y le mues 
tre un mapa del laberinto a costa de una pérdida de 20 puntos de los 300 de que 
dispone Vd. al empezar el juego. El objeto del programa es, por supuesto, sali 
del laberinto con la máxima puntuación posible. La puntuación se rebaja a cad: 
movimiento y se descuentan 20 puntos cada vez que se pide ayuda. Una vez Vd 
domine este laberinto, puede cambiar el diseño del mismo. 


En cualquier caso comience por entrar el programa, que está pensado para un. 
máquina de 16K. Recuerde que no hay diferencia entre los nombres de variabl: 
en mayúsculas y minúsculas, de modo que LABEY es exactamente lo mism 
que labey, por ejemplo. Utilice los números de línea al pie de la letra ya que ha: 
varios GOSUBs y GOTOs calculados. Donde vea referencias a D$, cualquie 
valor ”N” (Norte), ”S” (Sur), ”E” (Este) y ”O” (Oeste), se deben de poner e: 
mayúsculas ya que el programa utiliza esta variable para saber en qué direcció: 
va Vd. y sólo comprueba las mayúsculas. También existen varias líneas de sen 
tencias múltiples IF... THEN... Se utilizan cuando hay más de una posibilida 
para una cierta condición pero sin que sea realmente necesaria una subrutin: 
separada. 
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En la línea 8015 hay cuatro apóstrofes en la sentencia PRINT. En las líneas 
8510 y 8515 se utiliza el símbolo de barras cruzadas (el mismo del juego de tres 
en raya) en la tecla tres. Los caracteres DATA usados en el laberinto son cua- 
drados gráficos SHIFT 8, pero pueden ser cualquiera que Vd. prefiera ya que el 
programa sólo comprueba la presencia de un espacio para denotar un corredor 
abierto, cualquier otro carácter significa un muro. 


Una vez se ha introducido todo el programa, grábelo en cinta y verifíquelo. 
Entonces ya está listo para ejecutarlo. La pantalla cambiará a blanco sobre azul 
con un borde negro. Sonará un tono de dos notas una vez el laberinto esté a 
punto apareciendo el mensaje "pulsa una tecla para comenzar”. Una vez haya 
pulsado la tecla, aparecerá un mapa en el laberinto durante unos dos segundos 
con la entrada marcada ”ENTRADA” y la salida ”"SALIDA”. Un mensaje al 
fondo de la pantalla indica en qué dirección está Vd. mirándolo así como la 
puntuación inicial que tiene. La posición suya se indica por un asterisco, que en 
esta ocasión está en la entrada. 


ENTRADA 


SAL IDA 


You are facina nocrctá 


A continuación se borrará la pantalla dejándolo a Vd. solo dentro del laberinto. 
Al frente verá una representación tridimensional de la entrada del laberinto. 
Los controles de que Vd. dispone son: 


5: Girar a la izquierda (90 grados en sentido opuesto a las agujas del reloj). 
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6: Marcha atrás (girar 180 grados). 
7: Avanzar (el espacio correspondiente a un cuadro del mapa). 
8: Girar a la derecha (90 grados en sentido de las agujas del reloj). 
h 0H: ¡¡Socorro!!. 
o Ya me he cansado..., quiero acabar..., sacarme de aquí... 


La última opción es realmente la última, ya que todo lo que hace es parar el 
programa. Utilícela en vez del BREAK,ya que puede que haya alguna dirección 
de retorno en el stack de RETURNS y se puede colgar la memoria de la máqui- 
na. Utilice la opción F para suspender el programa si Vd. tiene que atender el 
teléfono o ir al lavabo. Para proseguir con el juego, use CONTINUE. No se 
obtendrá indicación de la dirección en que se avanza hasta que se efectúe un 
movimiento, ya que el mensaje STOP la habrá borrado de la pantalla. 


es 


3a.y3al Horte 


1 REM Laterinto SB 

3 REM por 

4 REM DIZLUYN_ JONES 

210 BRIGHT Q: FLASH A: INUVERSE 
Ga: QUER a 
¿e INK 7: PAPER 1: BORDER 6: € 


LS 
34 66 SUB Saa 
¿80 REM TECLADO 


N. del T. Cuando aparezca ” ”, entrar el espacio con el 8 en modo gráfico 
o bien el 143 del Código ASC11. 
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> RE =INKMEY $ 

2 EE =""H” OR K .. .. = 
¡08 $e0s, 60, SUB Séag”” Ten so 
0a13S 1F k$="9" OR k$="0" THEN sr 


2115 _ IF IkKs<"E" "gr 

co To 2 4Ó 5 OR Kg >"85"1 THEN 
LET score=score-1 

_ 129 IF Kg4="5" OR K4="6" OR K$=" 

ES THEN CLS : GO SUB 1200: GO Sy 


350 IF Kk$="?" THEN GO SUB 2100680: 
a sub g5Qq0 

140 1F LABEY=SALIRY AND LABEX==S 
SBLIRX THEN PRINT_ AT_1.3: "SALISTE 
ECO"? FLASH 1; ERIGHT i¿Score: PR 


INT AT 1,18;"Puntos" : STOP 
24 co To 100 
230 STOP 


ica REM Movimiento adelante 
¡un5 IF (Ds="N" AND LABEY=11 OR 
(D%="5S" AND LABEY=15) OR I1D="E" 
AND LABEX=15) OR (D="UY" AND LE 
SExX=1) THEN RETURN 

1010 IF Da="N" TREN _ IF M5 1(LABEY— 


1,LABEXI3<>" " THEN RETURN 
iaza IF Da="S" THEN _ 1F MHILADEY + 
1,LABEXI <>" " THEN RETURN 
12959 1F D="0" THEN 1F MS$I(LABEY, 
LABEX-13) <>" *" THEN RETURN 
i940 1F Di="E" THEN _ IF MS(LABEY. 
LABEX+11<>" " THEN _ RETURN 


10350 LET LABExX=LABEX+1DH4="E" AND 
, LABEX<=15) —(D4="0" AND LABEX>= 
1060 LET LABEY=LABEY+(D4="S" AND 
LABEY <=15) -(D%$="N" AND LABEY>=1 
27 


1070 RETURN 

1258 REM Girar 

1210 _1F Ks$="S" THEN LET Dé=t"0" 
AND DESUNCI+ (US AND DA=COMIF+ (NE 
“AND DS="SUI+(UN" AND DS="E"5 
1220_TF K$>"81 THEN LET Des= ME 
AND DE="NCI FUND AND De COna E 

" AND Da USUI+ (Us " AND DE=“E" 


J 

1230_1IF Kg="6" THEN LET DS=t"S" 

SND DE="N" 141” 'E" AND Dei= "O "IF EON 
AND D$="S5S"1+1"D0" AND Dá="E") 

1235 CL5 eS 

1244 GO TO _ 2000+(200 AND D$="0 

214909 AND Dái="N")+(600 AND D$="S 

des 

2200 REM Cara_este 

2410 FOR m=0 TO 16-LABEX 

2020 LEFT X=5x*m 

2025 IF LABEY=15 THEN GO SUB 7009 

2: GO SUB 4000+ (2000 AND MS$tLABE 

Y-1,LABEX-M)=" "): GO TO 2070 
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282 S 1F LABEY=15 THEN GO SUE 70% 
GO SUE 4600+ (2000 AND MY ILABE 
Y+1, LABEX+M1=" "): GO TO 2070 
2030 GO SUB 4009+ (2000 AND MEE 
BEY -21,LABEX+M)=" " 

2050 60 SUB Codos (2000 AND MS$tiLEA 


ce 


BEY+1,.LABEX+M) ==" ") 

2670 1 LABEX+M+1<=15 THEN IF _ Mg 
(LABGEY LABEX+M41) <>" “" TREN GO T 
o 3550090 


20380 NEXT M 

20926 RETURN 

2244 REM Cara Oeste 

2214 FOR m=40 TO LABEX-1 

2220 LET Xz=38:*RM 

2225 1F LABEY=1S THEN GO SUB 60% 
6: G6 SUB S008+ (2060 AND My (LASE 

Y-1, LABEX-M)=" "): GO TO 22709 
226 1F LABEY=1 THEN 60 SUE 7O0Gc 
: GO SUB 40680+ (2000 AND MA4(LABEY 

+1. LABEX-M1=" "): GO TO 2270 


2230 GO SUB 4000+ (20006 AND MBLLE 
BEY+1.LABEX-M) =" "3 

2250 60 SUB Sac0+ 12000 AND Mii 
BEY -1,LABEX-M)=" "3 

2270 1F LABEX-M-3>=1 THEN IF My$£ 
LABEY, LABEX-M-1) <>" " THEN GO TU 
3500 


24040 REM Cara Nort 

2410 FOR M=8 TQ LABEY - 1 

2420 LET X=Mx89 

2425 1F LABEX=15 THEN GO SUB 705 

0: 60 SUB 4000+ (2000 AND M4 1LAGE 
-M, LABEX-1)=" "): GO TO 2470 

2420 1F LABEX=1 THEN GO SUS 50509 
: Ga SUB S5000+ (2000 AND MA(LABEY 


=M.LABEX+1)=" "): GO TO 2470 
2438 GO SUB 4000+ (2000 AND MY 
BEY-34,LABEX-14)=" ") 


2450 60 SUB 5000 + (2900 AND Matt 
BEY -M,LABEXI=" "1 

2470 1F LABEY-M-1>=1 THEN 1F Mí 
LABEY -M-1,LABEXI3 <>" " THEN GO TO 


2600 REM Cara al Sur 

2610 FOR M=4 TO 15-LABEY 

2620 LET X=82GxiM 

2625 IF LABEX=15_ THEN GO SUB 655 
4: GO SUB S000+ (2000 AND H$(LAGE 
Y+M,LABEX-1)=" “1: 60 TO_ 2670 
2626 IF LABEX=1 THEN_GO SUB 988 
: GO SUB 4000+ (2000 AND M$(LABEY 
+M, LABEX+1)1=" _ "): GO TO 2570 
2630 GO _sUB e AND MELLA 
BEY+M,LABEX+1)=" " 
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2650 GO SUB 5000+ (2000 AND MELLA 


BEY+M,LABEX-1)=" '") 

2670 1F LABEY+M+1<=15 THEN IF M4 
(LABEY+M4+1,LAGEX) <>" " THEN GO T 
o 35009 


26308 NEXT M 
26989 RETURN 
3500 REM Pared delante 
3510 LET x=x+83 
2 PLOT x,x+5S5Yy5: DRAW 255- (2 Ex 
35384 PLOT x,xe*5S5-8+175-(10:%x 8): 
DRA 255- 12%x),0 
3540 RETURN 
4000 REM Gloqueo pared Izquierda 
4018 PLOT X,X*5-8 
4020 DRA 5,5 
4050 DRA Y, a 
4404 DRAU -3,5 
4050 RETURN 
Se» REM Dibujar pared derecha 
sala PLOT 255-x,xx5485 
5020 DRA -85.5 
540430 DPAN 49,165S- (5x4) 
5040 DRA 38,5 
50509 RETURN 
6000 REM Abrir Corredor Iz. 
64010 PLOT X,Xxr5-D+5 
60209 DRAN S5,0 
6039 CRA 4,1565- 15iXs34d) 
6040 DRA -3,4 
6050 RETURN 
7000 REM Abrir Corredor Dera 
70106 PLOT 255-X,X35-5+5 
7020 DRA -3,0 
7038 DRA 0,165- 15: X-43 
7840 DRAU 5,09 
7050 RETURN 
23000 REM SOCORRO! 
cLS 


5915 PRINT “*“** 

29820 FOR A=1 TO 

3030 PRINT TAB 3; AS (A) 

5040 NEXT A 

3059 PRINT AT LABEY+3,LABEX+7: "+ 


s45i 1F SALIRY=1 OR SALIRY=15 TH 
EN PRINT AT 24118 AND SALIRY=153 
¿SALIRX+6; "FUERA" 

3052 IF SALIRY>1 AND SALIRY<15S TY 
HEN _PRINT AT_SALIRY+5,4+1(20 AND 

SAL IRX=151; "SALIR" 

5053 IF ENTRARY=1 OR ENTRARY=15 

THEN _PRINT AT 2+(15 AND ENTRARY= 
15) , ENTRARX+6; "DENTRO" 

sas 1F ENTRARY>21 AND ENTRARY <15 
THEN PRINT AT ENTRARY+3,5+1(19 E 
ND ENTRARX=15); "DENTRO" E 
8052 LET score=score-20: GO SUE: 
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5586 

50640 PRUSE 100: CLS5S 

5u7a GO SUB 20090+(200 AND Dá="4” 

27408 AND Dy="N")+1(600 AND DYy=" 

2099 RETURN 

5500 REM Que Direccion”? 

5505 IF score<0 THEN LET score=9 

O PRINT $1;AT 1,8,"Uas hacia 

¡¿"Norte" AND D$= "NU "Sur" AN 

“S" ¡“Este " AND Ds="E";"Oes 

AND Ds*="0" 

5515 PRINT 81;AT 1,24-LEN STR 3 
j;  INUERSE 1, "Puntos=";score 

5520 RETURN 

20800 REO INS OACI 


e 
e, 


M4 0100 
05050099 


A 
5178, LET ENTRARX=8: LET ENTRARY= 


2150 LET SALIRX=5: LET SALIRY=1 
ae DIM M%4(15,15): REM LABERINT 


23200 RESTORE 90205 

2210 FOR M=1 TQ 35 

39220 READ M%1M) 

39239 NEXT Mm 

3240 LET LABEX=ENTRARX 

39250 LET LABEY=ENTRARY 

292560 LET Dg="N" 

3261 BEEP .5,0: BEEP ,7,12 

pa IF INKEYS%<>"" THEN GO TO $Y2 


3263 PRINT "Pulsa una tecla para 


3265 LET score=320 
32566 GO SUB 2600 
2267 GO SUB 355900 
3270 GO SUB 2400 
2290 GO SUB 5500 
33084 RETURN 


El listado es bastante largo y complejo. Existe un montón de repeticiones de 
las rutinas de dibuja con el fin de evitar una multitud de sentencias condiciona- 
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les que si se pusieran, eventualmente acortarían el programa pero lo harían 
más lento. Tal como está el programa, puede sorprenderle agradablemente el 
ver como un programa en BASIC de esta complejidad puede ejecutarse tan rá- 
pido habiendo como hay un montón de trabajo para obtener las vistas en pers- 
pectiva y dibujarlas. El dibujo no es estrictamente preciso en cuanto a que las 
alturas deben de cambiar con la distancia, y el ancho de las entradas a los corre- 
dores no aumenta conforme Vd. se acerca a las mismas. Esto se podría conse- 
guir pero no solamente haría el programa más lento, hasta límites inaceptables, 
sino que también las entradas a los corredores más lejanos aparecerían tan fi- 
nas que no se podrían distinguir. Como puede ver en el ejemplo, el método uti- 
lizado para dibujar da un efecto tridimensional más que aceptable ya que se 
pueden ver las paredes a izquierda y derecha, distinguiéndose netamente las 
entradas a los corredores laterales. 


Las líneas 10 y 20 colocan los colores, etc. Consisten sólo en comando de color 
global. De forma que si el texto en blanco y los gráficos son de un fondo azul, 
no le gustan, Vd. puede cambiar estas sentencias. El borde negro se utiliza para 
encuadrar la vista y a algunos puede no gustarle; nuevamente, si Vd. cambia la 
sentencia BORDER utilizada en el programa, puede colorearlo a su gusto. La 
línea 30 envía el programa a la rutina de inicialización de la línea 9000. El bucle 
de las líneas 100 a la 200 negocia con la lectura del teclado tomando la acción 
adecuada. La línea 112 maneja la opción de ”Socorro” yendo a las rutinas de la 
línea 8000 (ayuda) y 8500 (dirección/puntuación). La rutina de ayuda deduce la 
cantidad apropiada de la puntuación, y la rutina de dirección/puntuación impri- 
me ambos datos en la pantalla. La línea 113 es para la opción de fin de juego. 
La línea 115 asegura que el programa no avanza más en el caso de que no se 
pulse ninguna tecla o de que se haya pulsado la opción de ayuda. Esto hace que 
la puntuación trabaje correctamente. La línea 117 decrementa la puntuación en 
una unidad a cada movimiento que se haga, excepto en el caso de ayuda, en el 
cual se toma una acción diferente. La línea 120 trabaja con las opciones de giro 
borrando primero la pantalla y llamando a continuación a la subrutina de giro 
de la línea 1200 y, seguidamente, a la subrutina de dirección/puntuación. La 
línea 130 controla el avance llamando a la subrutina 1000 y a la de dirección- 
puntuación.| Lal línea 140 comprueba 'si Vd. ha llegado al final del laberinto, 
imprimiendo la puntuación y deteniendo el programa. En la línea 1000 se inicia 
la subrutina de avance. La línea 1005 comprueba los límites del laberinto. Las 
líneas de la 1010 a la 1040 comprueban si hay una obstrucción al frente. Obser- 
ve la utilización de IF...THEN IF...THEN en lugar de IF...AND...THEN... 
ya que el segundo procedimiento puede causar un error bajo ciertas condicio- 
nes tales como intentar girar en la misma entrada del laberinto. El programa 
salta sobre todas ellas sin intentar ejecutar nada que pudiera causar un error. 
Es una característica del BASIC del Spectrum ZX el que cualquier cosa que 
venga a continuación del THEN se salta hasta el final de la línea salvo que la 
condición sea verdad. Las líneas 1050 y 1060 cambian los valores de las varia- 
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bles LABEY y LABEX de la forma apropiada. Estas dos variables determinan 
la posición X e Y dentro del laberinto respectivamente. La línea 1200 es el ini- 
cio de la rutina de giro, la cual cambia a la variable de dirección D$ tal como sea 
necesario. La línea 1240 elige la rutina de dibujo a utilizar dependiendo de la 
dirección de avance, mediante un GOTO calculado, el mismo que se utiliza 
para avanzar. 


Las líneas de la 2000 a la 2090 forman la rutina que manejan el dibujo cuando se 
mira hacia el este y es similar a las otras tres rutinas de dirección que llegan 
hasta la línea 2690. El bucle m trabaja desde su posición actual al límite exterior 
del laberinto. X es donde estará la coordenada a través de la pantalla desde la 
parte más cercana del final hasta Vd. correspondiendo a la pared que se dibuja- 
rá a la izquierda de la pantalla. X se utilizará como factor de escala y también 
como vista de la perspectiva. Las líneas 2025 a 2050 seleccionan cuando se debe 
de dibujar una pared abierta o una cerrada a la izquierda o a la derecha. La 
línea 2070 determina si hay o no hay una obstrucción delante de Vd., en cuyo 
caso se dibuja una pared al frente en la línea 3500. Las rutinas de las líneas 4000 
a la 7050 negocian con el dibujo en sí mismo de las paredes a ambos lados 
utilizando una anchura de 8 pixels para cada pared/abertura de corredor (y con 
el hecho de que cada pared sucesiva será 12 pixels más corta ya que se encuen- 
tran más lejos de Vd.). Esta es la razón por la cual el tamaño del laberinto se ha 
fijado a 15 por 15. La línea 8000 es el comienzo de la rutina de ayuda, la cual 
imprime el mapa del laberinto, mostrando su posición mediante un asterisco. 
Las líneas 8051 a 8054 determinan donde marcar la entrada y la salida y que se 
pueden cambiar como se describirá más tarde. La línea 8059 deduce los puntos 
de penalización por la demanda de socorro. La línea 8060 determina de cuánto 
tiempo se dispone para estudiar el mapa del laberinto antes de borrar la panta- 
lla y continuar el programa dibujando la posición actual del laberinto (línea 
8070). 


La línea 8500 imprime su puntuación y dirección (de la 8510 a la 8515) en la 
parte baja de la pantalla utilizando PRINT1 para hacer que aparezca como si 
estuviera escrito en el área del borde, fuera de la zona principal. La línea 8505 
asegura de que la puntuación nunca bajará de 0. Finalmente llegamos a la línea 
9000 que es donde comienza la rutina principal de inicialización. Las líneas 9020 
a la 9180 se deben introducir siguiendo exactamente los números del listado en 
el caso de que posteriormente Vd. desee cambiar el diseño del laberinto. 


Las sentencias DATA están colocadas de forma que el diseño del laberinto sea 
obvio al ver el listado. ENTRARX es la coordenada transversal desde la entrada 
(de la 15, de izquierda a derecha). ENTRARY es la coordenada de la entrada Y 
(la 15 de arriba abajo). SALIRX es la coordenada de la salida X y SALIRY esla 
coordenada Y de la salida, como implica el nombre de la variable. La línea 9190 
prepara la matriz M$ (15,15) que contiene el laberinto. Esta matriz se puede 
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salvar en cinta utilizando SAVE”nombre”DATA pero, naturalmente, se habrá 
borrado si se ha utilizado un RUN, es por ello que utilizaremos sentencias 
DATASs para diseñar nuevos laberintos. Las líneas 9210 a la 9230 leen el labe- 
rinto de las sentencias DATA y lo colocan en la matriz, a continuación las 
coordenadas de inicio se colocan de modo que correspondan a las de la entrada. 
Df se coloca al valor ”N” lo que indica que el juego comienza mirando al norte 
en este caso. 


La línea 9261 genera un tono corto de dos notas para avisar que todo está a 
punto. La línea 9262 queda a la espera de la pulsación de las teclas. Las líneas 
9263/4 esperan a que Vd. pulse cualquier tecla (incluso los SHIFTs). La puntua- 
ción inicial se coloca a 320 ya que la rutina de ayuda se utiliza para la presenta- 
ción inicial del mapa y deducirá 20 puntos dejándolo en 300 que es lo que 
nosotros deseamos. Las líneas 9266 a 9290 preparan la visualización y la direc- 
ción /puntuación dibujando seguidamente la entrada tridimensional del laberin- 
to. 


Cambios en este programa 


El cambio más fácil consiste en modificar los colores de la pantalla, que están 
en blanco sobre fondo azul con un borde negro. Las líneas 10 y 20 contienen 
todos los elementos necesarios para el cambio. 


Se puede cambiar el tiempo de presentación del mapa modificando la sentencia 
PAUSE de la línea 8060. El carácter usado para mostrar su posición puede ser 
cualquiera que Vd. desee, incluso un espacio, pero si coloca un espacio jamás 
sabrá dónde se encuentra Vd. dentro del laberinto. 


Se puede cambiar la puntuación inicial en la línea 9265 en el caso de que a Vd. 
le sea muy dificil salir del laberinto. Y si desea restar más o menos puntos al 
pedir ayuda, modifique la línea 8059. También, si Vd. está más inclinado musi- 
calmente que yo, puede hacer una rutina musical que suene cuando se sale del 
laberinto. Esto se puede conseguir reemplazando el STOP de la línea 140 con 
un GOTO a una rutina que toque la música. Esta rutina se puede colocar entre 
las líneas 200 y 1000 ya que esta parte no se utiliza, estando situada entre las 
subrutinas y después del bucle principal. 


El mayor cambio que se puede hacer es el laberinto en si. Lo mejor consiste en 
salvar las líneas 9020 a 9180 por separado en la cinta y luego mezclarlas con el 
programa principal de forma que se pueda cargar fácilmente un nuevo laberin- 
to. 


205 


He aquí un ejemplo: 


23420>DATA 
2239 DATA 
2240 DATA 
29450 DATA 


00500 
ont 
D 
Al 
D 


TA ¡ 
LET ENTRARX=15: LET ENTRARY 


LET D$="0" 
LET SALIRX=1: LET SALIRY=3535 


04 SO 


8u 


2140 DATA * y a 


31650 DATA po 
eo LET ENTRARX=1: LET ENTRARY= 


5175 LET Dg="E”" 
Ss180 LET SALIRX=1: LET SALIRY=ax 
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Algo que hay que vigilar es no colocar corredores de más de un cuadrado de 
ancho. Tal como puede ver en este ejemplo en el cual el primer corredor a la 
derecha consistiría en un pasillo de cuatro veces el ancho normal de un corre- 
dor, esto aparece en la pantalla como cuatro corredores independientes coloca- 
dos uno a continuación del otro. Es correcto del todo pero inicialmente puede 
inducir a confusión. 


md 


Si Vd. dispone de suficiente memoria, puede almacenar varios laberintos en 
sentencias DATASs consecutivas al final del programa. Los valores de EN- 
TRARX, ENTRARY, D$, SALIRX y SALIRY también se deben de mantener 
dentro de las sentencias DATA. Se utilizará la sentencia RESTORE (número 
de línea) para seleccionar el laberinto a utilizar. Todo esto puede permitirle te- 
ner tantos laberintos como quepan en la memoria de su computador. 


A 
¡Abd tt gr e ere 
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El ZX Spectrum es un ordenador que 
comparado con otros del mismo 
estilo resulta mucho más fácil de 
MENDELA 


Por esto, en este libro, se enseña de 
una manera clara y sencilla, como el 
aparato mismo, a profundizar en el 
2X Spectrum. 


Esta obra no quiere ser un libro de 
texto sino que está concebido para 
ser el compañero inseparable en sus 
exploraciones a través del Spectrum. 


Tanto si quiere profundizar en el 
ROM como si quiere divertirse con 
un juego en tres dimensiones, aquí 
encontrará toda la información que 
necesite. 
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